@a = qw/Mon Tue Wed Thurs/;


foreach $key(@a)
{
push(@$key, $key);	
print Dumper(\@$key);	
}