You can try something like this

my $t = 12 * 60 * 60     # hours
        + 13 * 60        # minutes
        + 14;            # seconds
printf "%d hour(s), %d minute(s), %d second(s)\n",
    ( $t / 60 / 60 ),
    ( $t / 60 ) % 60,
    ( $t % 60 );
[download]