use Data::Dump qw(dump);
     
    $str = dump(@list);
    ....
    @copy_of_list = eval $str;