sub morf {

    my($tester, $testval, $true_word, $false_word)=@_;
    $tester->($testval) ? $true_word : $false_word ;

}

##</code><code>##

sub se {
    my ($val) = @_;

    sub { $_[0] eq $val } ;
}

##</code><code>##

morf(se('M'), $driver->{gender}, 'Male', 'Female') ;