$| = 1; # autoflush
print "Enter last number: ";
chomp( my $last = <STDIN> );
print join( ", ", 1 .. $last ), "\n";
#Output:
#1, 2, 3, 4, 5

##</code><code>##

use strict;
use warnings;