sub loop (&@) { $_[ 0 ]->( $_ ) for @_ }