Select Code to Download

use Regexp::List qw( );
my $re = Regexp::List->new(modifiers => 'i')
...
      } 
   } 
}

my %tables = map { lc($hash{$_}[0]) => 1 } keys %hash;

...
      } 
   } 
}