my %HoA;
while (<>) {
    chomp;
    next unless ( index($_, ',') != -1 ); # remove if not necessary
    push @{ $HoA{$.} }, split(/,/, ) if ( $. <= 12 );
    $. = 0 if $. == 12; # reset line number
} continue {
    close ARGV if eof;
}