my $filename = <STDIN>;
chomp($filename);
open (FH,$filename) or die "Unable to open file: $!";
my @Lines = <FH>;
close FH;