#a for loop to help popping all the elements in array. 
for (0..6){        
   $fish = pop @array;
   $fish = pop @array;