my @array          = qw(foo bar baz);
my %md5_other_hash = (map {&get_md5, $_ } @array);