$lsugs=@sugs;
print"\nThe length of the array:";
print"\n$lsugs";
for($elt=0;$elt<$lsugs;$elt++)
 {
   pop(@sugs);     
  }
print"\nThe array contents after popping:";
print "@sugs\n";