my @time = (1, 2, 3);
my $counter = 5;
my $s = "Today is $time[1] and you have seen this $counter times!";
@messages=($s);
foreach $m(@messages){print "$m\n";}

##</code><code>##

Today is 2 and you have seen this 5 times!