gistfile1.txt

#!/usr/bin/env perl
use 5.16.2;
use strict;
use warnings;
use utf8;

sub r{
    our $v;
    return $v++;
}

say r(); # 0
say r(); # 1 
say r(); # 2