#!/usr/bin/perl

use Term::ANSIColor;

print color("green"),"Write a program that reads a list of strings and prints out the list in referse order.\n",color("reset");

print "Please input a list of strings, and press ctrl-d when finished\n";
chomp(my @a=<>);

$a_size=@a;
print "You entered $a_size lines\n";

print "\n",color("magenta"),"Your lines in Reverse Order:",color("reset"),"\n";
foreach $line (reverse(@a)){
   print "$line\n";
}

print "\n",color("magenta"),"Your lines sorted in Lexical ascending order:",color("reset"),"\n";
foreach $line (sort{$a cmp $b}@a){
   print "$line\n";
}

print "\n",color("magenta"),"Your lines sorted in Lexical decending order:",color("reset"),"\n";
foreach $line (sort{$b cmp $a}@a){
   print "$line\n";
}

print "\n",color("magenta"),"Your lines sorted in numerical  ascending order:",color("reset"),"\n";
foreach $line (sort{$a <=> $b}@a){
   print "$line\n";
}