[Cascavel-pm] Remover elemento de array em arquivo..

[Rafael Lebrão Martins]

Preciso de uma ajuda!!!!! 
A variável "@user", linha 19,  recebe os valores de um outro 
código(Pesq.pl).. Esses valores são enviados quando o usuário marca os 
checkbox no 
código "pesq.pl". O problema é que quando os usuários marcam mais de um 
checkbox, apenas o valor do primeiro é excluido no 
arquivo "users" -> '/arquivos/usuarios/users'. Para tentar resolver o 
problema, criei um array com os valores de "usuario" 
na linha 19, no entanto, não consigo fazer o código verificar cada elemento 
e exclui-lo..Na linha 22 deixei /$user[0]/ só 
para não dar erro na hora de executar o código.. Resumindo, preciso remover 
do arquivo "users" todos os valores que forem 
selecionados nos checkbox do código "pesq.pl".. 

 1 #!/usr/bin/perl 
 2 use warnings; 
 3 use strict; 
 4 use CGI qw ( :standard ); 
 5 use constant PESQ => 
 6              'http://meudominio.com.br/cgi-bin/usuarios/pesq.pl'; 
 7 use constant MARCARUSUARIO => 
 8              'http://meudominio.com.br/usuarios/marcarusuario.htm'; 
 9 use constant USUARIODELETADO => 
10              'http://meudominio.com.br/usuarios/usuariodeletado.htm'; 
11	 
12 ## Abre o arquivo e cria o Handle <USERS>; 
13 my $arquivo = '/arquivos/usuarios/users'; 
14 open ( USERS,$arquivo ); 
15 my @linhas = <USERS>; 
16 close (USERS); 
17 my $linhas = "@linhas"; 
18 ## Recebe o conteudo da variavel $user  do formulario 
(/var/www/cgi-bin/usuarios/pesq.pl) ; 
19 my @user = param ( "usuario" ); 
20 my @u; 
21 foreach (@linhas) { 
22 push (@u, $_ ) if $_ !~ /$user[0]/; 
23 my $narq = "@u"; 
24 open ( USERS,"+>$arquivo" ); 
25 print ( USERS "$narq" ); 
26 close ( USERS ); 
27 #Exibe o codigo .htm (USUARIODELETADO) e fecha o else e o foreach; 
28 print redirect (USUARIODELETADO); 
29 }}