Yet another great explanation... thank you! But I still need to know how to print each specific element # along with its data? Is this the right way to go for storing each line in its own element???
while $line < FILEHANDLE > my @tsm = < FILEHANDLE > foreach $_ (@tsm) print $_ , "\n";
my @tsm; while (my $line = <FILEHANDLE>) { chomp($line); push @tsm, $line; print "$line\n"; }
print '-' x 60, "\n";
use Data::Dumper; print Dumper([EMAIL PROTECTED]);
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
