chomp(my @rec = split /\t/, $line, 16); my %hash = map { split /=/ } @rec[1..$#rec];