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