Converting a list to hierachical subscripts

Typical answer

sub hashify {
 my $var;
 my $p = shift;
 $p =~ s#^/##;   # remove leading slash
 $p =~ s#/$##;   # remove trailing slash
 $p =~ s|/|"}->{"|g;  # build hashref syntax
 eval '$var->{"'.$p.'"}="somevalue"'; # ...and eval into $var
 return $var;   # which is returned
}

Eeek! eval() is evil!

Next