my @foo = ();
while($_ = \*{$file{handle}}->getline) { push @foo, $_; }