Select Code to Download

@a = qw/Mon Tue Wed Thurs/;

...
print Dumper(\@$key);    
}

#Declare array as 
push(@$key, #some values);
...
..
..
#Alhtough this will help me to get the desired array format , however 
+the most irritating part is that the variable $key is constant ,i.e e
+vn if i iterate it over a loop, only one array ( i.e @key is generate
+d and the reference for all the arrays is the same)