#!/usr/bin/perl
@days = qw/Mon Tue Wed Thu Fri Sat Sun/;
print "@days\n";

print "Grep command using \n";
@grepArray = grep(/^S/,@days);
print "@grepArray\n";

#find only numbers from array and print

@mixArray = ("Mon",1,"Tue",2,"Wed",3,"Thu",4,"Fri",5,"Sat",6,"Sun",7);
print "Grep command using \n";
@grepArray = grep(/\d/,@mixArray);
print "@grepArray\n";