print persist(), "\n";
print persist(), "\n";
print persist(), "\n";

sub persist {
    my $var if 0;
    ++$var;
}