#!/usr/bin/perl
@days = qw/Mon Tue Wed Thu Fri Sat Sun/;
print "@days\n";
$delValue = pop(@days);
print "@days\n";
print "Deleted Value \n";
print $delValue;