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

  my (%data);

  $data{"SUN"} = "Sunday";
  $data{"MON"} = "Monday";
  $data{"TUE"} = "Tuesday";
  $data{"WED"} = "Wednesday";
  $data{"THU"} = "Thursday";
  $data{"FRI"} = "Friday";
  $data{"SAT"} = "Saturday";

  my @values = values %data;

  foreach $k (@values) {
    print $k,"\n";
  }