use v5.10;

##</code><code>##

my $debug = $ARGV[1];

##</code><code>##

my %ids; 

##</code><code>##

while(<IN>)