Select Code to Download

print "$in was not a number!"; input() unless $in =~ /\d/;

sub input {
    my $arrayref=shift;
...
    my $in=<STDIN>;
    print "$in wasn't a number!";input() unless $in =~ /\d/;
}