organize structured strings into tree

# transform a a-b-c-d-e-f-g strings into structures
# organizes a-b-c-d----- strings on a tree

$rec = {};
foreach (@allcmd) {
    $r = $rec;
    @links = split '-';
    foreach $link (@links) {
$r->{$link} = {} unless defined $r->{$link};
$r = $r->{$link};
1;
    }
}