#!/usr/local/bin/perl
use strict;
use warnings;

my $targ = 0.01;
my $var = 66694.01;
my $tmp = $var / $targ;
printf "%.10f\n", $tmp;
printf "%.10f\n%.10e", 6669401;