Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl                                                       
+          
use strict;    
...
$#stuff = $#stuff-1;
               
print "AFTER: ", join(", ", @stuff), "\n";

Select or download this

$ perl t.pl
BEFORE: Chem, Bio, Maths, C++, Java
...
BEFORE: Chem, Bio, Maths, C++, Java
Removing item 3
AFTER: Chem, Bio, Maths, Java