my @file = <AFILE>;    # reading all file to an array
for (@file) {
  ...
}