Select Code to Download

my %line = ('A' =>1,
            'B' =>1,
...
     last if ($line eq 'AYW');

}

A => 1,
B => 1,
...
.... until

AYW => 1