$| = 0; print "first=", $|, " second=", $|--, "\n"; #### $| = 1; print "first=", $|, " second=", $|--, "\n";