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