Works fine for me:

#!/usr/bin/perl

use strict;
use warnings;

my $num1 = 1234.56789;
my $num2 = 1234.56789111;

if ( $num1  ==  $num2 ) {
    print "equal.\n";
}
else {
    print "Please don't try to check for equality of floats that way.\
+n";
}

if ( sprintf( "%.3f", $num1 ) == sprintf( "%.3f", $num2 ) ) {
    print "Yup, they show up as equal.\n";
}

if ( sprintf( "%.3f", $num1 ) eq sprintf( "%.3f", $num2 ) ) {
    print "Yup. This works too.\n";
}
[download]

output:

Please don't try to check for equality of floats that way.
Yup, they show up as equal.
Yup. This works too.
[download]