if (/^G017RATEBRKRL,([^,]+),([^,]+),([^,]+),(.*)/)
{
  $col[3]=$1;
  $col[5]=$2;
  $col[1]=$3;
  $col[4]=$4;
}
elsif (/^G017CP111 D,([^,]+),([^,]+),([^,]+),(.*)/)
{
  #  etc...
}