sub three { my $number = "213"; return '0' x (9 - length($number)) . $number; }