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