@lines=<FILE>;
for (my $i=5;$i<$#lines;$i++)
{
    #stuff
}