Select Code to Download

my @keys = qw(foo bar baz);
my %h;
...
my @a = @h{@keys};               # DOESN'T create keys
sort {$a <=> $b} @h{@keys};      # DOESN'T create keys