#!/usr/bin/perl -w
use strict;

#tested on Active State 10.1 for Windows

my $a = 000.76; #note: 0.76     works ok
                #   "000.76"    works ok
                #     00.76     fails
                #    000.76     fails                
my $b = 4; 
my $c = $a * $b; 
print "$c\n";  #304 not 3.04!! WHOA

my $x = 000.76;
print "$x\n"; #prints 076

$x = 000.76;
$x +=0;
print "$x\n"; #prints 76

my $y=0.76;
print "$y\n"; #prints 0.76