# 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";