Why doesn't this read my file into the array properly? How can I fix it
-----------------------------------------------------------------------
print "Please enter id file\n"; my $file = <STDIN>; open (my $handle, '<',$file); chomp (my @lines = <$handle>); close $handle;
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |