for(qw(1 4 haha)){
 usenumbers($_) or die($!);
}

sub usenumbers {
 my $var = shift;

 $var=~/^\d+$/ or
  # ( $! = 'these were not digits' ) and 
  return;

 print "Yes, [$var] has numbers.";
 return 1;
}