my $line;
my @lines;
[download]

#!/opt/perl5/bin/perl -w

use strict;

#my $line;
my @lines;

while(my $line=<> and $line ne ".\n"){
    push @lines,$line;
}
foreach(reverse @lines){ 
       print;                 
}
[download]

Global symbol "$line" requires explicit package name at day1_test.1.pl
+ line 8.
Value of <HANDLE> construct can be "0"; test with defined() at day1_te
+st.1.pl line 8.
Execution of day1_test.1.pl aborted due to compilation errors.
[download]

Whoops. The problem is that the second way I gave you won't work because the my $line part of it will fail -- and the variable won't be declared -- if you read in a blank line from the file you're looking through. So you could get a loop with the same logic by changing it to:

while (my $line = <> ) {
    push @lines, $line unless $line eq ".\n";
}
[download]

HTH

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

thank you you have been a big help!! snowrider