my %a = %$a;
my @keys = grep { ! /le/ } keys %$a;
my %c;
@c{@keys} = @a{@keys};
my $c = \%c;