sub Create_hashref{
 { my $i=1; @_; };
}
[download]

Try this, it gives the same result of "10". '{' is also used as block delimiter and when the parser has to guess if it is used as a block delimiter or a hash reference, it might guess wrong.