sub max_v_local {
  local (*a, *b) = @_;
  my $n = @a > @b ? @a : @b;
  my @result;
 for( my $i = 0; $i < $n; $i++ ) {
   push @result, $a[$i] > $b[$i] ? $a[$i] : $b[$i];
   }
  @result;
  }