Nested Subroutines in Perl - some odd behaviour

nested-subs

use strict;
use warnings;
my @LINES = qw(artichoke beetroot cabbage);

while (my $in = shift(@LINES)) {
	my $results = [];
	sub result {
		push @$results, shift;
	}
	result(uc $in);
	print "\n$in";
	print "\n\t$_" foreach @$results;
}
print "\n---";
@LINES = qw(artichoke beetroot cabbage);
while (my $in = shift(@LINES)) {
	my $results = [];
	my $result = sub {
		push @$results, shift;
	};
	&{$result}(uc $in);
	print "\n$in";
	print "\n\t$_" foreach @$results;
}

=pod

Prints the following:

	artichoke
		ARTICHOKE
	beetroot
	cabbage
	---
	artichoke
		ARTICHOKE
	beetroot
		BEETROOT
	cabbage
		CABBAGE

But why?

The second is the 'expected' behaviour, I have no idea why the behaviour in the first is desirable - it seems like there is something going on behind the scenes... Is the first C<$results> being kept but no longer accessible except through C<&result>?

=cut