I think you probably want to use sprintf rather than what you are doing now.

  sub format_time
  {
     my ( $h, $m, $s) = @;

     return sprinf "%.02d%.02d%.02d", $h, $m, $s;
   }
[download]

/J\