Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
    printf "%4s" => $data{$row}{$_} for @keys;
    print "\n";
}

Select or download this

    A   N   R
A   5  -1  -2
N  -1   7  -1
R  -2  -1   7