Select Code to Download

use strict;
use warnings;
...
Monday
Saturday
Sunday

exists ($days{Friday}) ? print "Friday was there\n" 
                       : print "Friday wasn't there\n";