my %h = ( ... );
foreach my $k ( sort { lc $a cmp lc $b } keys %h ){   # get keys sorted by lowercase of key
  ...
}
foreach my $k ( sort { lc $h{$a} cmp lc $h{$b} } keys %h ){  $ get keys sorted by lowercase of value
  ...
}