#!/usr/bin/perl use warnings; use strict; my $max = 20; my @array = (1..$max-1); while (my $element = shift @array) { push (@array, $max - $element); sleep 1; print '*' x $element, "\n"; }