( map { $sub->($_->[0]) } @_ );
# instead of
&$sub( map { $_->[0] } @_ );