for my $key (sort { $a <=> $b } keys %websites) {
   if (exists $newsites{$key1}) {
       print "$key=$newsites{$key1}\n";
   }
}