Just add a map before the grep like so

my @data = map $hash{$_}, grep exists $hash{$_}, @array;
[download]

HTH

_________
broquaint