#!/usr/bin/perl -w
use strict;

my @array = ("1 a 10 100",
             "2 b 20 200",
             "3 c 30 300",
             "4 d 40 400");
print  join("\n", reverse(@array) );