#!/usr/bin/perl

open (SIX,"</home/adamsj/sixtext");
@lines = <SIX>;
close(SIX);

foreach (@lines) {
    chop;
    @a_line = split(/,/);
    $key = shift @a_line;
    push(@{$all_of_it{$key}},[@a_line]);
}
foreach (keys %all_of_it) { print "$all_of_it{$_}[0][0]\n";}


##</code><code>##

foreach (@lines) {
    chop;
    ($key, $line) = split(/,/, $_, 2);
    push(@{$all_of_it{$key}},$line);
}
foreach (keys %all_of_it) { print "$key,$all_of_it{$_}[0]\n";}