run = 1
while (run == '1') {
print increaseNumber();
}

sub increaseNumber {
my $value = 001
return $value + 1
}; 

###which would print###
001
002
003
###etc###