my @letters = 'E' .. 'Z';
my $drive = $letters[rand scalar @letters];