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

##</code><code>##

my %data;
$data{"hash1"} = { key1 => 25, key2 => 19, ... };
$data{"hash2"} = { key5 => 12, key8 => 'hi', ... };
$data{"hash3"} = { fred => 'flintstone', barney => 'rubble' };