use UUID::Tiny;
my $string = create_UUID();
$string =~ tr [\-abcdef] [9012345];
my $first_10 = substr($string, 0, 10);