sub traverse {
    my ($deps, $root, $depth) = @_;
    print "  " x $depth, "$root\n";
    traverse($deps, $_, $depth + 1)
        for @{ $deps->{$root} };
}

traverse( \%deps, "mainpackage-1.0" );