use strict;
use warnings;

$| = 0;
print $|++ . " " for (1..4);

$| = 0;
print "\n";
print $|-- . " " for (1..4);