if (all(@input) =~ /^\d+$/) { print "Got all whole numbers!\n" }