@sites="http://www.frozenhosting.com";
for( $i=1; $i<100000; $i++)  {
    $mech->get( $sites[$i] );
    ....
    $mech->content()=$html;
    $mech->find_all_links();
    $link->url_abs()=@sites;

##</code><code>##

use strict;
use warnings;
use HTML::Parser;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
my $p = HTML::Parser->new();
my @sites = ( 'http://www.frozenhosting.com' );

for my $site (@sites) {
    $mech->get($site);

    my $html = $mech->content();
    my @links = $mech->find_all_links();

    $p->parse($html);

    ... etc ...
}