Select Code to Download

while (<STDIN>) {
    $some_hash{$_}++;
}

foreach (keys %some_hash) {
    ...some code here...
}

my $position = 1;
while (<STDIN>) {
    $myhash{$_}{'item'}++;
    $myhash{$_}{'position'} = $position++ if ! exists $myhash{$_}{'pos
+ition'};
}