#!/usr/bin/perl

use strict;
#perl excercise, reverse cat...


my @file;


while (<>) {
    chomp;
    push @file, $_;

}

foreach (@file) {   my $test = pop (@file); print $test;  }
print "\n";