sub three {
    my $number = "213";
    my $padded = substr("000000000".$number, -9);
    #print $padded,"\n";
}