Perl Zufall String ohne Zusatz Module!!

#!/usr/bin/perl
use strict;
use CGI::Carp qw(fatalsToBrowser);

#START
print "Content-type: text/html\n\n";

my $string1="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
my @RA=split("",$string1);

#Zufalls String Rutine
sub RandStr()
{
#Für die Rückgabe vom String
my $str="";
#Lenge vom Zufalls String
my $len=$_[0];
#Anzahl der Zeichen
my $cnt=@RA;

for (my $i=0;$i<$len;$i++)
{
#Zufallszeichen generieren
my $random_nummer=int(rand($cnt));

#Zufallszeichen zum gesamt String hinzufügen
$str.=$RA[$random_nummer];

}
return $str;
}
#Zufalls String Rutine-Ende


#Test Schleife

for(my $i=0;$i<1000;$i++)
{
my $ppp=&RandStr(12);
$ppp=sprintf("%02d %s",$i,$ppp);
print "$ppp
";
}