$av= sub { \@_ }->( @$av, $_->[0] )   for  @_;