$filename = $ARGV[0]; #corrected from @ARGV[0] as suggested by  eyepopslikeamosquito
open (FILE,"$filename") || die "Can't Open $filename: $!\n";
@LINES=<FILE>;   #slurping into array

foreach my $line(@LINES){ 
    #process something here
 }