String Perl

$variable1 = sprintf "%.2f", 3.1415926;
$variable1 += .01;
print $variable1;