Data Type Perl

#!/usr/local/bin/perl 
$value1 = 14.3; 
$value2 = 100 + 14.3 - 100; 
if ($value1 == $value2) { 
    print("value 1 equals value 2\n"); 
} else { 
    print("value 1 does not equal value 2\n"); 
}