Select Code to Download

 if ($col6 =~ /^\Q97517\E/ }
    elsif
 $col6 =~ /^\Q97516\E/))

col1,col2,col3,col4,col5,col6,col7,col8
1234,GP,20170715,0,V,97517,24,0.6
...
5678,Pack,20170715,0,V,97517,183,3.9
1234,PRS,20170715,0,S,97517,261,5.4
5678,PRS,20170715,0,M,97517,36,0.9

#!/usr/bin/env perl

...
  }
  return $sum;
}