for ($z=5;$z>=0;$z--)
{
  $tmp=$menu[$z];
   @temp= split /,/, $tmp;
   if (substr($temp[0],0,2)*100 != $temp[0]*1){
   print $temp[3]."\n";
  } 
}