open EXCLUDE, '<', $exclude_psc or die "Could not open '$exclude_psc' $!"; while ( <EXCLUDE> ) { next if $. == 1; # exclude header chomp; my ($excpsc,$keyword) = split /\|/; %ex_psc = (exclpsc=>$excpsc,exkeyword =>$keyword );
*What not just like below? As long as you have unique key, it would retain all the information.*
$ex_psc{"$excpsc"} = "$keyword";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
