my $input = ...;
    if( length( $in ) == 3 ) {
        seek DATA, $index{ $in }, 0;
        print scalar <DATA> for 1 .. 25
    }
    elsif( length( $in ) == 2 ) {
        for( 'A' .. 'X' ) {
            seek DATA, $index{ $in . $_ }, 0;
            print scalar <DATA>;
        }
    }
    elsif( length( $in ) == 1 ) {
        for( 'A' .. 'X' ) {
            seek DATA, $index{ $in . $_ . 'A' }, 0;
            print scalar <DATA>;
        }
    }