my @nums = (-2 .. 2);
for my $num (@nums) {
    printf "!!%2d => %d\n", $num, !!$num;
}