Select Code to Download

D:\>perl -MData::Dumper -e "@arr = qw (a b c); print Data::Dumper->new
+([\@arr])->Indent(0)->Dump"
$VAR1 = ['a','b','c'];
...

D:\>perl -MData::Dump::Streamer -e "@arr = (qw (a b),(qw(c)) x 4); Dum
+p(\@arr)->Names('*arr')->Indent(0)->Out()"
@arr = ( 'a', 'b', ( 'c' ) x 4 );

D:\>perl -MData::Dump=dump -e "@arr = (qw (a b),(qw(c)) x 4); print du
+mp(\@arr)"
["a", "b", "c", "c", "c", "c"]