Select Code to Download

#! /usr/bin/perl
use strict;
...
          'SGE',
          'WID'
        ];

=>BNJ CGN DUS ESS GKE MGL SGE WID<=

BNJ
...
SGE
WID