arrays - この配列に保存されているファイルに対して Perl で md5sum コマンドを実行するにはどうすればよいですか?

Question

ディレクトリ内の各ファイルの md5sum を計算する perl スクリプトを実行しています。これまでのところ、ファイル名は @files 配列に保存されています。配列内の各ファイル名に対して md5sum システム コマンドを呼び出し、出力を標準出力に出力したいですか?

これが私がこれまでに持っているものです：

#!/usr/bin/perl -w

@files = <*>;
foreach $file (@files) {
print $file . "\n";
}