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

foreach my $dia (@dias) {
   $data = $dia;
   pesquisa($data);
}

sub pesquisa {
    print "eu recebi : ",shift, "\n";
}