use warnings;
my $range = "1..10";
my @wanted = range($range);
print "@wanted\n";

sub range {
    my @t = split /\.\./, $_[0];
    return ($t[0] .. $t[1]);
}

##</code><code>##

sub range {
    my @t = split /\.\./, $_[0];
    return ($t[0], $t[1]);
}