#!/usr/bin/perl -w
my $day='0';
my %DAYS_OF_WEEK = ("0" => "Sunday",
                     "1" => "Monday",
                     "2" => "Tuesday",
                     "3" => "Wednesday",
                     "4" => "Thursday",
                     "5" => "Friday",
                     "6" => "Saturday",
        );
 my $dayname = $DAYS_OF_WEEK{$day};
print "$dayname\n";