# header
1
2
3
4
5
6

##</code><code>##

use Tie::File;
tie @f, 'Tie::File', "file.txt" or die $!;
foreach (@f[1..$#f]) {
    print $_, "\n";
}

##</code><code>##

1
2
3
4
5
6