Select Code to Download

package Tie::RecursiveCI;

...
  }
  return $self->{lc $key};
}

#!/usr/bin/perl

...
for (sort keys %{ $hash{bAr} }) {
  print "$_ => $hash{bar}{$_}\n";
}

bar => HASH(0xd67b0)
foo => 20
blat => 40