#! /usr/bin/perl -w
 
use strict;
 
for( 0..9 ) {
    my $num0 = "1.$_";
    my $num1 = "1.0$_";
    my $num2 = "1.00$_";
#next three lines were added
    $num0 -= 1;
    $num1 -= 1;
    $num2 -= 1;
    printf "$num0 => %0.0f  $num1 => %0.1f  $num2 => %0.2f\n",
        $num0, $num1, $num2;
}