Hi, I am trying to read a text file and split up the file into maybe 10 smaller files. I am new to perl and have come up with a very ugly code. Was wondering if anybody can help me improve on the code by using loops? Code as below:

----------------------------------------------------
#!/usr/bin/perl -w
# print_line-v1 - linear style

$i=1;
while ($i<=10)
{
$file=("temp".$i);
$dfile=("temp".$i.".txt");
open($file,">>$dfile")  || die "Can not open $dfile: $!";
#print("$file \n");
#print("$dfile \n");
$i++;
}

open(HOSTCOUNT,"$ARGV[0]");
@hosts=<HOSTCOUNT>;
$count=@hosts;
$line_number = ($count / 10);
$line_number = int($line_number);


@ARGV == 1 or die "usage: print_line FILENAME line_number\n";
($filename) = @ARGV;
open(HOSTS, "< $filename") or die "Can't open $filename for reading: $
+!\n";

while (<HOSTS>) {
       $line = $_;
    $j=$line_number+1;
        last if $. == $j;
    print temp1 ("$. $line");       
}
last if $. == $line_number+2;
print temp1 ("$. $line");  

while (<HOSTS>) {
    $line_number2=($line_number+$line_number+1);
    $line = $_;
        last if $. == $line_number2;
    print temp2 ("$. $line");
}

last if $. == $line_number2+1;
print temp2 ("$. $line"); 

while (<HOSTS>) {
    $line_number3=($line_number2+$line_number+1);
    $line = $_;
        last if $. == $line_number3;
    print temp3 ("$. $line");
}
last if $. == $line_number3+1;
print temp3 ("$. $line"); 

while (<HOSTS>) {
    $line_number4=($line_number3+$line_number+1);
    $line = $_;
        last if $. == $line_number4;
    print temp4 ("$. $line");
}
last if $. == $line_number4+1;
print temp4 ("$. $line"); 


while (<HOSTS>) {
    $line_number5=($line_number4+$line_number+1);
    $line = $_;
        last if $. == $line_number5;
    print temp5 ("$. $line");
}
last if $. == $line_number5+1;
print temp5 ("$. $line"); 


while (<HOSTS>) {
    $line_number6=($line_number5+$line_number+1);
    $line = $_;
        last if $. == $line_number6;
    print temp6 ("$. $line");
}
last if $. == $line_number6+1;
print temp6 ("$. $line"); 


while (<HOSTS>) {
    $line_number7=($line_number6+$line_number+1);
    $line = $_;
        last if $. == $line_number7;
    print temp7 ("$. $line");
}
last if $. == $line_number7+1;
print temp7 ("$. $line"); 


while (<HOSTS>) {
    $line_number8=($line_number7+$line_number+1);
    $line = $_;
        last if $. == $line_number8;
    print temp8 ("$. $line");
}
last if $. == $line_number8+1;
print temp8 ("$. $line"); 


while (<HOSTS>) {
    $line_number9=($line_number8+$line_number+1);
    $line = $_;
        last if $. == $line_number9;
    print temp9 ("$. $line");
}
last if $. == $line_number9+1;
print temp9 ("$. $line"); 


while (<HOSTS>) {
    $line_number10=($line_number9+$line_number)+1;
    $line = $_;
        last if $. == $line_number10;
    print temp10 ("$. $line");
}
last if $. == $line_number10+1;
print temp10 ("$. $line"); 

----------------------------------------------------
[download]

I am having problems with looping because the script will always skipped 1 line. Thanks!