#!c:/perl/bin/perl -w
$|++

use strict;

my $bar;
print join(', ', (++$bar) x 4), "\n";