foreach my $x (keys %hash)
  {
    my $data = $hash{$x};
    print "$x\n";
  }


##</code><code>##

my @parts = split(/\t/, $data);

    my $url = $parts[0];
    $mech->get( "$url" );