sub _eq($$){ $_[0] == $_[1] ? 1 : 0 }
sub _ne($$){ $_[0] == $_[1] ? 0 : 1 }
my $op = \&_eq; 
print $op->( 1, 2 ) ? 'EQ' : 'NEQ'";