#!/usr/bin/perl -w

#file://videogamer06.pl

#html table, appropriate rowspans.

use strict;

my %crap = ();
my @all3;

while(<DATA>)
{
    @all3 = split(',',$_);
    
    push @{$crap{shift @all3}}, @all3;
}


foreach my $key (keys %crap)
{
    print '$key-',
           @{$crap{$key}},
           "\n";
}


print "\n", '-' x 60, "\n";


foreach my $key (keys %crap)
{
    print $key,"\t|";

    my @twod = @{$crap{$key}};

    print join("\t|", @twod);
}


print "\n", '-' x 60, "\n";


foreach my $key (keys %crap)
{
    print $key;
    my @twod = @{$crap{$key}};

    for my $ix (0..$#twod)
    {
        print "\t|", $twod[$ix];
    }
    
}


#|csc|tech|base|
#|   |comp|    |
#|   |mous|acm |

 
__DATA__
csc, tech, base
csc, comp, acm
csc, mous, base