#my $chn[$count]; #my $chn2[$count2]