open (FILE, shift);
my @file = <FILE>;

foreach $a (@file) {
   ...etc...
}

close (FILE);