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