Select Code to Download

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

my @h = split /\s+/, 
...
                     'mux'
                   ]
        };