Public Scratchpad | Download, Select Code To D/L |
use Data::Dumper; my @list = (1..10); my $d = Data::Dumper->new(\@list, qw(*list2)); my $str = $d->Dump(); my @list2; eval $str; print join '-', @list; print join '-', @list2;
Public Scratchpad | Download, Select Code To D/L |