Change

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

to

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

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.