Select Code to Download

#! perl -slw
use strict;
...
tie @array, 'Tie::File', 'junk.dat', memory => 0, recsep => "\t";

print shift @array while @array;

1    2    3    4    5    6    7    8    9    10