#!/usr/bin/perl -w
use strict;

printf "%02d\n", $_ foreach ( 2, 23);
__END__
02
23