while (<infile>) {
  my @line = split /,/, $_;
  [case code here for determining what data you need]
  open(FH,">$_[1].txt");
  print FH [data you need in said file]
  }