sub two {
    my $two = 0;
    for ^20 {
        $two += 0.1;
    }
    return $two;
}

my $two = two;
printf "Variable two = %.15f\n", $two;
my $four = ceiling $two + $two;
printf "two + two = %.15f\n", $four;