open FH, "$INPUT_DIR/$input_file" or die "Couldn't Open File: $!";
 
while ( <FH> ) {
 
chomp;
 
my ($s, $a, $c, $r) = (split / [, \t]/, $_);