my %hash = ();
$hash{$recNo} {$i} {'first'} = $currS;
$hash{$recNo} {$i} {'last'} = $lastS;
$hash{$recNo} {$i} {'min'} = $minA;
$hash{$recNo} {$i} {'max'} = $minB;

##</code><code>##

my $rHash = \%hash;
for my $k1 = (sort keys %$rHash) #outer key, this works
{
  for my $k2 (sort ( {keys %{rHash->{$k1}{$a}} <=> keys %{$rHash->{$k1}{$b}} } keys %{$rHash->{$k1}}) )
  {
    #display miscellaneous
    print $k1 $k2;
  }
}

##</code><code>##

for my $k2 (sort keys %{$rHash->{$k1}})