Help for this page
my @array = eval $number;
for (my $i=$1;$i<=$2;$i++){ push @arraydigit, $i; }
push @array, $1..$2;