c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"my @a = qw/c b d/;
 ;;
 my %h = (
     a => 4,
     b => 3,
     c => 2,
     d => 1,
 );
 ;;
 my @b = @h{@a};
 print \"2 3 1\n\", Dumper(\@b), \"\n\";
 ;;
 my $hr = \%h;
 my @c = @{ $hr }{ @a };
 print \"2 3 1\n\", Dumper(\@c), \"\n\";
"
2 3 1
$VAR1 = [
          2,
          3,
          1
        ];


2 3 1
$VAR1 = [
          2,
          3,
          1
        ];