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