#!/usr/bin/perl
use warnings;
use strict;

my @number;
my @rev;
@number = (1,2,3,4);
my $index1;
for ($index1 = $#number; $index1 >= 0; $index1--)
{ 
@rev = $number[$index1];
#case1#
 print "@rev \n" ;
}
#case2# 
print "@rev \n";