{ my @a; sub load { push @a, @n; @a } } #### use feature qw( state ); sub load { state $a = []; push @$a, @n; @$a }