my @ranges = map {
    $_->[0] .. $_->[1]
} map {
    my ($x, $y) = split /-/, $_;
    $y //= $x; # in perl < 5.10 muss es lauten: $y = $x unless defined $y;
    [$x,$y]
} split / /, $_;
print "Zahlen: @ranges\n";