Ok, then you'll want something like ...

my @array = qw/ foo bar baz quux /;
my %hash  = qw/ f1  baz f2  foo  /;
my @newarray;

for my $k (keys %hash) {
  push @newarray, $k
    if grep { $hash{$k} eq $_ } @array;
}

print "newarray - @newarray\n";

__output__

newarray - f1 f2
[download]

HTH

_________
broquaint