Not sure if this is the *best* way, but I'm lazy and it works for me

#!/usr/bin/perl

use strict;

my %h = qw/A a B b c c/;
my %h2;

$h2{$_} = $h{$_} for grep {/^[^a-z]$/} keys %h;
[download]