#!/usr/local/bin/perl
# Jaime Prilusky 2005

  my @days = ('sunday','monday','tuesday','wednesday','thursday','friday','saturday');

  print "original: @days\n";

  @sorted = sort @days; 
  print "sorted:   @sorted\n";

  @reversed = reverse @days; 
  print "reversed: @reversed\n";