#!/usr/bin/perl
use strict;
use warnings;

while ( <DATA> ) {
    chomp;
    print format_time( split " " , $_ ), "\n";
}
sub format_time {
    return sprintf("%.2d:%.2d:%.2d", @_)
}
__DATA__
9 12 54
23 8 7