[PERL] Algorytm parsowania sciezek do drzewa;>

Witam ;>

Proboje napisac taki algorytm ktory wyswietli tree w takiej postaci jak jest w komentarzu w kodzie;>
Na razie udalo mi sie zrobic tyle ile widac, czyli podzielic i umiescic sciezki w tablicy 2-wymiarowej w taki
sposob:

@T   [1]        [2]       [3]
[1] cat 
[2] cat       costam
[3] cat       super
[4] cat       super      fajne
[5] comp    abc         abc.txt
[6] comp    txt.txt
[7] comp    abc         txt.abc

I co dalej z tym zrobic? Na pierwszy rzut oka wiadomo, ale ciezej to zaimplementowac;>

#!perl

@input =
(
	"cat",
	"cat/costam",
	"cat/super",
	"cat/super/fajne",
	"comp/abc/abc.txt",
	"comp/txt.txt",
	"comp/abc/txt.abc"
);

# SPODZIEWANY OUTPUT
# + cat
#   - costam
#   + super
#     - fajne
#
# + comp
#   + abc
#     - abc.txt
#     - txt.abc
#   - txt.txt
#

for ($i = 0; $i < int(@input); $i++) {
	@in = split("/", $input[$i]);

	for ($x = 0; $x < int(@in); $x++) {
		$t[$i][$x] = $in[$x];
	}

	
}

for ($i = 0; $i < int(@t); $i++) {
	print "\n";
	for ($j = 0; $j < 3; $j++) {
		print "$t[$i][$j]     ";
	}
}

juz sobie poradzilem ;p

To może pochwalisz się rozwiązaniem jeszcze?