#!/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";