my @array = qw/sarah john/;
my %hash  = (
  sarah => 19,
  john  => 25,
  emma  => 22,
);
## push() would be superfluous
my @data = grep exists $hash{$_}, @array;

print "data: @data\n";

__output__

data: sarah john