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