while (<FH>) {
   chomp $_;
   $a[$i]=$_;
   $i++;
}