my $drive = chr( int(rand 26) + 65 );