Select Code to Download

my %userData;

...
  print "$CURR,$ACCTNUM,$FIRM_ID\n";
}

This prints out what I want via Dumper:

...
  $ACCTNUM = substr $line, 11, 9;
  $FIRM_ID = substr $line, 660, 1;
  $CURR = substr $line, 661, 3;