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

  my (%data,$key);

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

  print "key WED points to $data{WED}\n";

  my $short = "SAT";
  my $long = $data{$short};
  print "key $short points to $long\n";

  do {
    print "Enter a key: ";
    $key = <STDIN>; chomp($key);
    print "$key -> $data{$key}\n" if ($key);
  } until (!$key);