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