my $i=0;
outputter('first', $i++);
outputter('middle', $i++);
outputter('last', $i++);
outputter('beyond', $i++);

sub outputter {
    my ($txt, $i) = @_;
    print "$txt=$i, " if $i;
}