my $exists = scalar gerp { my $x = int $_; "$x" eq $_ } @ARGV;