- say "Current input line is @_";
+ say "Current input line is $_";

##</code><code>##

- @tmpConv = split ",",$_;
+ @tmpConv = split ",";

##</code><code>##

my $tmpStar;
my $tmpRS;
my @tmpConv;

while (<$STARFile>){
  [...]
  @tmpConv = split ",",$_;
  $tmpStar = $tmpConv [1];
  $tmpRS = $tmpConv[0];

##</code><code>##

while (<$STARFile>){
  [...]
  my ($tmpRS, $tmpStar) = split ",";