{ no strict 'subs'; my $str = aa; say $str; }