sub test_it {
    $d->{foo} =~ /X/i;
}