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