Select Code to Download

open IN, '<', "/path/to/database.txt";
my %hash;
...
print $hash{'3005698'}[1] . " ";
print $hash{'3005698'}[2] . " ";
print $hash{'3005698'}[3] . "\n";