perl -We'use strict; my $a; my $b = %{ $a }'