use strict;
use warnings;
#my ($a, $b, $c, $d, $e);

my $file = "data.txt";
#open(my $fh,'<', $file) or die "can't open $file $!";
#my @stack = <$fh>;
my @stack = <DATA>;
#chomp @stack;


#$a = pop @stack;
#print $a . "\n";

#$b = pop @stack;
#print $b . "\n";

#$c = pop @stack;
#print $c . "\n";

print while defined ($_ = pop @stack);

__DATA__
line 1
line 2
line 3
line 4

 

##</code><code>##

line 4
line 3
line 2
line 1