#!/usr/bin/perl                                                                 
use strict;    
use warnings;  
use Data::Dumper;
               
my @stuff = (qw(Chem Bio Maths C++ Java));
               
print "BEFORE: ", join(", ", @stuff), "\n";
my $i = int(@stuff * rand);
print "Removing item $i\n";
               
if ($i != $#stuff) {
    $stuff[$i] = $stuff[-1];
}              
$#stuff = $#stuff-1;
               
print "AFTER: ", join(", ", @stuff), "\n";

##</code><code>##

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

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

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