Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
    my ($team, @field) = split;
    push @{ $data{$team} }, \@field;
}

Select or download this

#!/usr/bin/perl
use strict;
...
    push @{ $data{$col[TEAM]}{SCORES} },  $col[SCORES];
    push @{ $data{$col[TEAM]}{METRICS} }, $col[METRICS];
}