use Time::HiRes qw(time);

my $id_number = time;

$id_number =~ s/\.//;
$id_number =~ s/(.{12}).*/$1/;