my @ret=();
  push(@ret,$line)  while(my $line=<$fh>);