my $count = 0; sub { my ($input1, $input2) = @_; return ('Total lines processed: ' . $count) if !defined($input1); my $output = $count . ': ' . $input1 . ', ' . reverse $input2; $count++; return ($output); }