#!/usr/bin/perl -w   
#

use strict;
use Data::Dumper;

my $num1 = 1990;
my $num2 = '19.90'; 
#my $num1 = 465;
#my $num2 = '4.65';   

$num2 += 0;
$num2 *= 100;

print Dumper($num1);
print Dumper($num2);

if ($num1 == $num2) {
        print "-> equal\n";
} else {
        print "-> different\n";
}

$num2 = int($num2);  

print Dumper($num1); 
print Dumper($num2); 

if ($num1 == $num2) {
        print "-> equal\n";
} else {
        print "-> different\n";
}

##</code><code>##

$VAR1 = 1990;
$VAR1 = '1990';
-> different
$VAR1 = 1990;
$VAR1 = 1989;
-> different

##</code><code>##

$VAR1 = 465;
$VAR1 = '465';
-> different
$VAR1 = 465;
$VAR1 = 465;
-> equal