[SP-pm] Chamando uma Sub várias vezes num looping

["Flávio R. Lopes"]

Boa noite pessoal.

Onde estou errando nisso:

Supondo que eu tenha um array "@dias", onde desejo passar elemento por 
elemento para uma Sub (pesquisa)

my @dias = qw ("12-7-2011" "13-7-2011" "14-7-2011");

foreach my $dia (@dias) {

     $data = $dia;
     pesquisa($data);



}

Se eu rodar o código acima não acontece nada.


Mas funciona se eu fizer da forma abaixo, redefinindo "$data" a cada linha:

$data = "12-07-2011";
pesquisa ($data);

$data = "14-07-2011";
pesquisa ($data);


O que está errado?

Abraço,
Flávio