# program1.pl 17 March 2000
$phrase = '123';
print $phrase+1,"\n";
@home = ("couch","chair","table");
print $home[1],"\n";
%longday = ("Sun", "sunday", "Mon", "Monday");
print $longday{"Sun"},"\n";
[download]