use Data::Undump::PPI qw/Dump Undump/;

Dump(\@state_out, file=>'state.pl');

my @state_in = Undump(file=>'state.pl');