#!/usr/bin/perl @days = qw/Mon Tue Wed Thu Fri Sat Sun/; print "@days\n"; @holidayStart = @days[4..6]; print "Holiday Started from: \n"; print "@holidayStart\n"; @weekend = @days[5,6]; print "weekends: \n"; print "@weekend\n";
#!/usr/bin/perl @days = qw/Mon Tue Wed Thu Fri Sat Sun/; print "@days\n"; @holidayStart = @days[4..6]; print "Holiday Started from: \n"; print "@holidayStart\n"; @weekend = @days[5,6]; print "weekends: \n"; print "@weekend\n";