If there's a good chance that the element will be early on in the array, then something like this might be a bit faster.

my $i;
foreach $i (0 .. $#mit2) {
  last if $mit2[$i] eq $rname;
}

splice @mit2, $i;
[download]

Oh, it also assumes that the element you want to lose only appears once in the array.

--
<http://www.dave.org.uk>

Perl Training in the UK <http://www.iterative-software.com>