for (grep $tree{$_}, keys %tree) {
   my @g = $_;
   push @g, $_ while $_=$tree{$_};
   print(join(':', @g), "\n");
}

##</code><code>##

for (grep $tree{$_}, keys %tree) {
   my $g = $_;
   $g .= ":$_" while $_=$tree{$_};
   print("$g\n");
}