Help for this page

Select Code to Download


  1. or download this
    my @Z;
    while (<DATA>) {
    ...
            $Z[-1][1] = $token[2];
        }
    }