use strict;
use warnings;

my $f = 0.57;
my $f100 = $f * 100;
print ($f100 == 57 ? 'ja' : 'nein', "\n");
my $i100 = sprintf('%.0f', $f * 100);
print ($i100 == 57 ? 'ja' : 'nein', "\n");