sub f {
while(@_){while(($a=pop)ne'=>'){unshift@b,$a};unshift@{$h{pop()}},@b;@b=()}\%h
}