http://www.perlmonks.org?node_id=151418


in reply to Problem Declaring Variable

Try:
&print_report($yesterday); #And in print_report: sub print_report { my $yesterday=shift foreach (sort keys %$today) { print LOG "$_\n" unless exists $yesterday->{$_}; } # etc. etc. etc.


GreetZ!,

print "profeth still\n" if /bird|devil/;