perl hash slice

gistfile1.pl

#!/usr/bin/perl

use strict;
use warnings;

my %testhash = (
    test => 1,
    hoge => 2,
    fuga => 3,
);

# 5.8.9:○ / 5.10.1:×
eval {
    print @{%testhash}{qw/test hoge fuga/};
    print "\n";
};
# 5.8.9:○ / 5.10.1:○
eval {
    print @testhash{qw/fuga hoge test/};
    print "\n";
};