Help for this page

Select Code to Download

Select or download this

C:\test>perl
my @d = qw(AAA30 BBC5 SHT12H DAL33B BBC49 AAA31 DAL33A BBC6 SHT12G BBC
+50);
...
AAA30,AAA31
DAL33A,DAL33B
SHT12G,SHT12H