use 5.010;
my %FORM = ( a => "abc", b => "defg" );
say for %FORM;
say join "", %FORM;
my $x = length join "", %FORM;
say $x;
say length join "", %FORM;