Here is the code i use:

for (my $i = 0; $i < @array};$i++) {
    if ($array($i) eq $nick) {
        splice(@array},$i,$i+1);
        last;    
    }    
}
[download]

But I really havent done much array element removing (just read about splice yesterday ;)).

^jasper