my $padded = sprintf "%02d", $num;