Re: passing arrays

[grep]

You aren't passing anything into the sub csv

my @array = ( 1, 2, 3, 4, 5 );
csv( @array ); # pass array into csv

sub csv { 
  my @passed_array = @_; # reteive array from @_
  foreach (@array) {
    print "$_\n";
  }
}

Check out perlsub

Also:
Please reduce your question to the smallest example of your problem. This not only saves us from having to dig through irrelevant code to find your real problem, but a good portion of the time you'll answer it yourself.

Update: added Also section

[ScOut3R]

I know grep! :) I'm passing the the $in variable to readlog() from csv() and returning the @mails array from it.

while (my $in = @data) {
    my @mails = readlog($in);

But i think nothing is coming back.

[grep]

Ahhhh... this is why you should reduce your code to the problem. I did not see that buried in the rest of your code.

you want a foreach

foreach my $in (@data) {
    my @mails = readlog($in);

[ScOut3R]

You're absolutely right. Now the values are passing back, but i have a new problem to sort out. :)