use strict; 
use warnings; 
my $input; 
my $length; 
print "Enter ID Number: "; 
$input = <STDIN>; 
chomp($input); 
do { 
$input = "0" . $input; 
$length = length($input); 
} until $length eq "11";