s$ perl -MData::Dumper -MJSON::Tiny=j -E 'say Dumper j(q{["snow","white","1212whatever"]})'
$VAR1 = [
          'snow',
          'white',
          '1212whatever'
        ];