sub morf {

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

}