perl -MO=Deparse it.pl my $bar = {'foo', ()}; it.pl syntax OK