$val = $array[$ELEMENT_NUMBER_WE_WANT_DELETED];
%new_array = map { 
                 $_ => "1"
                 } @array;
delete $new_array{$val};
@array = keys %new_array;