my @arr = 3..9 ;
our @early;

sub{
	for( @arr ) {
		print;
		return if $_ == 5;
		push @early, $_;
	}
}->();

print "@early";