my %data;
$data{"hash1"} = \%hash1;
$data{"hash2"} = \%hash2;
$data{"hash3"} = \%hash3;
...
for (sort keys %data) {
  subroutine($_, $data{$_});
}