perl -MO=Deparse -e 'print nono => "1";' print 'nono', '1';