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

my @array;

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

print shift @array while @array;