Change

  my( $av, $c, $fs ) = @F[3, 4, -1]; 

to

  my( $av, $c, $fs ) = @F[5, 3, -1];