Select Code to Download

   my @ary2 = grep {defined} @hash{@ary};

#!/usr/bin/perl -w
use strict;
...
my @ary2 = grep {defined} @hash{@ary};

print "[$_]\n" for @ary2;