PassWord Genatator

#!/usr/bin/perl
@myarray=(A,B,C,D,E,1,2,3,4,5,6,7,8);
for($i=0;$i<$#myarray;$i++){
    $j=rand(10);
    $randomnum.=$myarray[$j];
}
print $randomnum;
print "\n";