my @new = (1,2,3,4); my @old = (4,5,6,7,8); say keys { map { $_ => 1 } @new, @old };