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

while ( <DATA> ) {
    chomp;
    print format_it( split " " , $_ ), "\n";
}

sub format_it {
    my $formatted;
    for ( @_ ) {
        $formatted .= length $_ == 1 ? '0' . $_ : $_;
    }
    return $formatted;
}

__DATA__
3 2 61
13
333
5
7
8