foreach (keys %$a){
        !/le/ and $c->{$_} = $a->{$_};
}