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