#!/usr/bin/perl
use warnings;

my $size = 0.01;
my $step_size = 0.01;

while($size < 5){
  $size = $size + $step_size;
  print $size."\n";
}

print "FINAL: ".$size."\n";