Select Code to Download

my(%site1)=@_;
my(%site2)=@_;

sub x {
...
}

x(\%hash1,\%hash2);

  use Data::Dumper;
  print Dumper(\%site1);