Select Code to Download

$i=0;
if ($i++) {
    print 'first=' , $i, ', ';
...
if ($i++) {
    print 'beyond=' , $i, ', ';
}

$i=0;
if ($i++) {
    print 'first=' , $i - 1, ', ';
...
if ($i++) {
    print 'beyond=' , $i - 1, ', ';
}

$i=0;
print 'first=' , $i, ', ' if $i;
...
$i++;
print 'beyond=', $i if $i;
$i++;

my $i=0;
outputter('first', $i++);
...
    my ($txt, $i) = @_;
    print "$txt=$i, " if $i;
}