for (my $i=$1;$i<=$2;$i++){ push @arraydigit, $i; }