my @rray=qw(mercury venus earth mars jupiter saturn neptune uranus pluto);

print "\@rray contains: @rray\n";

print "Removing $rray[1]\n";

@new_array=splice(@rray,1,1);

print "\@new_array now contains: @new_array\n";
print "\@rray now contains: @rray\n";