Select Code to Download

#!/usr/bin/env perl

...

    return $total;
}

Data before pop_sum: 1 2 3
    Total: 0; Data: 1 2 3
...
    Total: 6; Data: 
Sum of data: 6
Data after pop_sum_ref:

sub pop_sum_ref {
    \local our @data = shift;

sub pop_sum_ref {
    \our @data = shift;

Message sent

...
response acknowledging your message within a few hours (check
your SPAM folder and outgoing mail) please consider sending an
email directly from your mail client to perlbug@perl.org.