Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    }
    return \%hash;
}

sub f
{
my(%h,$y);my$k=my$x=shift;while($y=shift){if($y eq'=>'){pop@{$h{$k}};$
+k=$x;$y=shift;}push(@{$h{$k}},$y);$x=$y;}return\%h;
}