Select Code to Download

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

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

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