use Digest::SHA1 'sha1_hex';

my $unique_string = 'blahblahblah';
my $sha1 = sha1_hex( $unique_string );
my $out = substr $sha1, 0, 12;