#! perl -slw
use strict;
use Tie::File;

my @array;

tie @array, 'Tie::File', 'junk.dat', memory => 0, recsep => "\t";

print shift @array while @array;

##</code><code>##

1	2	3	4	5	6	7	8	9	10