my ( $f1, $f2, $frac01, $frac02, $command, $total ) = (0) x 6;