#!/usr/bin/perl -w

use strict;

foreach (1..20) {
    print "a";
    sleep (1);#between each element of the array there should be 1 second interval
} 
print "\n";