#!usr/bin/perl
use say;
use strict;
use warnings;
use POSIX q(strftime);

my @abc = ("a", "b", "c", "d", "e");

sub fetchTime {
    return POSIX::strftime('%a, %d %b %Y %T %z', localtime);
}

for (@abc) {say fetchTime() . "\t$_"; sleep 1;}

__END__

$ perl time.pl
Wed, 07 Jun 2017 14:08:31 +0200	a
Wed, 07 Jun 2017 14:08:32 +0200	b
Wed, 07 Jun 2017 14:08:33 +0200	c
Wed, 07 Jun 2017 14:08:34 +0200	d
Wed, 07 Jun 2017 14:08:35 +0200	e