while (<INPUT>)  {
     my $line = $_;
     my @file;
     push @file, $_;
     <snip>