I can't really help with the PATH_INFO but I can simplify your code a little. You do not need to create the array if all your going to do is turn around and make a hash out of it.

my %avain = split /\//, $path;

while (my ($key, $value) = each (%avain)) {
    next unless $value;
    print "<p>$key = $value</p>\n";
}
[download]