I suggest you add a print line to understand what is happening. It might be a data issue.

if ($word=~/($railcarcnt)/io){
  $count{$1}++;
  print "Line $. [$word] matches [$1]\n"; # add 
}
[download]

poj