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