#!/usr/bin/perl
use warnings;
use strict;

print "enter the 1st number: \n";
chomp( my $number1 = <STDIN>);
print "enter 2nd number: \n";
chomp( my $number2 = <STDIN>);

my @list=($number1..$number2);

{
    local $" = "\n";
    open my $fh, '>', "$ENV{HOME}/number_list.txt"
        or die $!;
    print $fh "@list\n";
}