按行内容来分类：按照一行中元素个数的不同写入不同的文件夹

我们手里有这样的文件：

#!/usr/bin/perl#class different line to differet fileuse strict;use warnings;open (CLASS,"OnlyATGC.txt")||die("can not open!");open (NUM1,">1-18.txt")||die("can not open!");open (NUM2,">2-17.txt")||die("can not open!");open (NUM3,">3-16.txt")||die("can not open!");open (NUM4,">4-15.txt")||die("can not open!");open (NUM5,">5-14.txt")||die("can not open!");open (NUM6,">6-13.txt")||die("can not open!");open (NUM7,">7-12.txt")||die("can not open!");open (NUM8,">8-11.txt")||die("can not open!");open (NUM9,">9-10.txt")||die("can not open!");open (NUM10,">10-9.txt")||die("can not open!");open (NUM11,">11-8.txt")||die("can not open!");open (NUM12,">12-7.txt")||die("can not open!");open (NUM13,">13-6.txt")||die("can not open!");open (NUM14,">14-5.txt")||die("can not open!");open (NUM15,">15-4.txt")||die("can not open!");open (NUM16,">16-3.txt")||die("can not open!");open (NUM17,">17-2.txt")||die("can not open!");open (NUM18,">18-1.txt")||die("can not open!");my @informations;my $information;my $cout=1;my $firstpase;while(<CLASS>){chomp;@informations = split;$firstpase    = $informations[1];foreach $information(@informations){if($information=~$firstpase){$cout++;}else{next;}}if($cout==1){print NUM1 "$_\n";    $cout=0;}elsif($cout==2){print NUM2 "$_\n";    $cout=0;}elsif($cout==3){print NUM3 "$_\n";    $cout=0;}elsif($cout==4){print NUM4 "$_\n";    $cout=0;}elsif($cout==5){print NUM5 "$_\n";    $cout=0;}elsif($cout==6){print NUM6 "$_\n";    $cout=0;}elsif($cout==7){print NUM7 "$_\n";    $cout=0;}elsif($cout==8){print NUM8 "$_\n";    $cout=0;}elsif($cout==9){print NUM9 "$_\n";    $cout=0;}elsif($cout==10){print NUM10 "$_\n";    $cout=0;}elsif($cout==11){print NUM11 "$_\n";    $cout=0;}elsif($cout==12){print NUM12 "$_\n";    $cout=0;}elsif($cout==13){print NUM13 "$_\n";    $cout=0;}elsif($cout==14){print NUM14 "$_\n";    $cout=0;}elsif($cout==15){print NUM15 "$_\n";    $cout=0;}elsif($cout==16){print NUM16 "$_\n";    $cout=0;}elsif($cout==17){print NUM17 "$_\n";    $cout=0;}elsif($cout==18){print NUM18 "$_\n";    $cout=0;}else{$cout=0;next;}}