Select Code to Download

#! perl -nslw
use vars qw[%ids];
...
}{ #! terminate implied (perl -n) while loop and start continue block
#! process hash here.
    print "$_ was $ids{$_}" for sort keys %ids;

 7:59:54.25 C:\test>type junk
the quick brown fox jumps over the lazy dog the quick brown fox jumps 
+over the lazy dog
...
NT-Development_1024371284_FULL was ok
NT-Development_1024371285_FULL was missing