my @new=map { exists $hash{$_} ? $hash{$_} : $_ } @array;

##</code><code>##

my @new=map $hash{$_} || $_, @array;