#!/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";}