perl -MData::Dumper -wle '$Data::Dumper::Indent=0;print Dumper [ map { ($_, $_+0) } 0..3 ]'