Help for this page
my ($var1, $var2, $parray) = @_;
sub format_output { my ($var1, $var2, $parray1, $parray2) = @_; ... printf "Array item #%d = %s\n", $i+1, $parray2->[$i]; } }