sub x{ 
    my( $a, $b, $c ) = @_;
    ++$_  for $a, $b, $c;
}