sub f{
map{/=>/?$b=$a:$a&&$a!~/=>/?push@{$x{$b}},$a:0;$a=$_}(@_,'');\%x
}

##</code><code>##

sub f {
map{/=>/?$b=$a:$a&&$a!~/=>/&&push@{$x{$b}},$a;$a=$_}(@_,'');\%x
}

##</code><code>##

sub f {
for(@_,''){/=>/?$b=$a:$a&&$a!~/=>/&&push@{$x{$b}},$a;$a=$_}\%x
}