while(<>) {
    $n = split;
    warn "processing $n tokens\n";
    &process; # implicitly takes @_
}