The Solution

Run

• Another code ref stating how to process each record

                    $dataprocess = sub { my @fields = split /,/, $_[0], -1; print "@fields\n"; };

• process_metadata_and_proceed()

                    $self->process_metadata_and_proceed( $dataprocess );