my $input = "7-12";
my ($start, $end) = split /-/, $input;
my @output = $start..$end;

print "@output\n";   # 7 8 9 10 11 12
[download]