jars@jars-desktop:~$ perl -MO=Deparse -e 'my %hash; $hash{$_} = 1 for 1..10'
my %hash;
;
$hash{$_} = 1 foreach (1 .. 10);
-e syntax OK
jars@jars-desktop:~$ perl -MO=Deparse -e 'my %hash; $hash{$_} = 1 foreach 1..10'
my %hash;
;
$hash{$_} = 1 foreach (1 .. 10);
-e syntax OK
jars@jars-desktop:~$