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

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

print "@early";