Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
%all = map{$_, $_} grep defined, @all{do{local @ARGV = $_; <>}} for @A
+RGV;

print sort keys %all;

Select or download this
```
ID121 ABC14
ID122 EFG87
ID157 TSR11
```