my @array = ( 1, 2, 3, 4, 8, 9, 10, 11, 7, 8, 9, 10, 12, 13, 14, 15 ); for (@array) { $_ < 10 ? print "0", $_, $/ : print $_, $/; }