chomp(my $number = ); my @notSee = split(",", $number); my @array; foreach my $numb (@notSee){ my @arraydigit; if ($numb=~/(\d+)\.\.(\d+)/){ for (my $i=$1;$i<=$2;$i++){ push @arraydigit, $i; } } else{ push @array, $numb; } push @array, @arraydigit; } print "@array\n";