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