perl -MData::Dumper -E "say for Dumper([ 1, '1' ]),eval qq(1+'1'), length qq(1....).1;"
$VAR1 = [
          1,
          '1'
        ];

2
6