my @pkgs = qw[ mainpackage-1.0 ];
my %deps;

while (@pkgs) {
    my $pkg = shift @pkgs;
    next if exists $deps{$pkg};

    my @deps = find_dependencies($pkg);
    $deps{$pkg} = \@deps;
    push @pkgs, @deps;
}