my @file;
while (<$file>) {
  push(@file, $_);
}