Help for this page

Select Code to Download

Select or download this

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