my $omega = 1;

sub test {
    $omega++;
    return $omega;
}