Select Code to Download

sub is_digits {
    my @rv = $_[0] =~ /^([0-9]+)$/;
...
push @arr2, @arr1;
print "There are ", scalar(@arr2), " elements in \@arr2\n";
print '$arr2[2] is ', defined($arr2[2])?'':'un', "defined\n";

There are 3 elements in @arr2
$arr2[2] is undefined