perl -Mstrict -le 'my $s={foo=>"bar"}; print "%$s%"'