perl -MO=Deparse,-p -e 'print 0..9 x 2, "\n";'