#!/usr/bin/perl
my $num = 5;
$num = substr("00",2-length($num)) . $num if length($num)<2;
print $num;