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