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