my %link;
my @url;
my $next;

@url = geturls;
$link{url} = \@url;

for(@url) {
    my @url;

}