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

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

  foreach my $day (sort @days) {
    print "today is $day\n";
  }