use strict; use warnings; use feature 'say'; my @x = ( -2, 2, 3, 8, 10 ); my %y = map { $_ => 1 } @x; say "missing: $_" for grep { not exists $y{ $_ } } ( -2 .. 10 );