foreach $Taxed (@HandOfFed) { 
 die unless open BOTTLEOFXANAX, 'i'; 
 pop @ten;
 close BOTTLEOFXANAX; 
}