open I, '<', 'data/junk';
m[^(\d+)$] and $h{$1} = undef while <I>;
print scalar keys %h;
100000