my Sub @array = ( &one , &two, &three )
sub high_order_function ( Sub $op ) {  $op() }

#  ?
my Operator @array = ( cmp , eqv , gdb )
sub high_order_function ( Operator $op  ) {   $op() }