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