for my $drive ( 'A' .. 'Z', 'AA' .. 'ZZ' ) {