# $row->{ttime} == 301.2
# $row->{tcalls} == 1
my $ttime = sprintf( "%1.02f", $row->{ttime} );
my $a = ( ( $ttime * 60 ) / $row->{tcalls} );
my $s = $ttime * 60;

sprintf ( "%02d:%02d:%02d [%s]", $s / 3600, $s % 3600 / 60, $s % 60, $s ); # prints 00:05:01 [301.2]
sprintf ( "%02d:%0d2:%02d [%s]", $a / 3600, $a % 3600 / 60, $a % 60, $a ); # prints 00:52:01 [301.2]