Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
    print ' ', $values{$id}[$_] || 0 for 0 .. $tableIndex - 1;
    print "\n";
}

Select or download this

Aa 22 34 0 66
Bb 28 0 75 0
...
Ee 0 89 0 213
Gg 0 0 0 250
Kk 0 124 0 0