Select Code to Download

my $fetch = sub {
    my ($fh) = @_;
...
while ($next->(my $item)) {
    print "$item\n";
}

my $fetch = sub {
    my ($fh) = @_;
...
while (my $ref = $next->()) {  
    print "$$ref\n";
}

my $fetch = sub {
    my ($fh) = @_;
...
while (my ($item) = $next->()) {  
    print "$item\n";
}