print Dumper { %hash {qw{ a b c }} };

##</code><code>##

print Dumper { map { $_, $hash{$_} } qw( a b c ) };