sub capitalize {
    my $hashref = shift;
    foreach ( keys %$hashref ) {
        $hashref->{ uc($_) } = delete $hashref->{$_};
    }
    1;
}