Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Caillte's scratchpad

by Caillte (Friar)
on Jun 01, 2004 at 21:40 UTC ( [id://358630] : scratchpad . print w/replies, xml ) Need Help??

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;