$ perl -MO=Deparse,-p - warn \my %hash; warn \my(%hash); ^Z warn((\my(%hash))); warn(\(my(%hash))); - syntax OK $ perl - warn((\my(%hash))); warn(\(my(%hash))); ^Z Warning: something's wrong at - line 1. Warning: something's wrong at - line 2.