use strict;
use warnings;

my @times;
my $timeDisplay;
my $timeMinute = '56';
my $timeHour = '34';

while(my $line = <DATA>) {
    chomp $line;
    unshift(@times, $line);
}

$timeDisplay = join (":", "$timeHour", "$timeMinute");
unshift(@times, $timeDisplay); #puts in new time to queue

foreach my $i (@times) { #prints back into fileTimes to update
print "$i\n";
}

__DATA__
12:34
56:78

##</code><code>##

34:56
56:78
12:34