perl -we'use strict; sub foo {}; my $a; foo( %{ $a } )'