Select Code to Download

#Untested code for lack of example input by the OP
use strict; #enforces predeclaration of variables, better scoping.
...
     $hash{$second_column}=1; 
 }
print Dumper(\%hash) #see if the hash looks like what is expected.