sub DeAOL {
    for ( keys %{$_[0]} ) {
        my $tmp = lc $_[0]->{$_};
        delete $_[0]->{$_};
        $_[0]->{lc $_} = $tmp;
    }
}