in reply to Error message "Use of uninit"
Since, at least in your posted snippet, you don't use the variables $tag or $freq, perhaps the best way of avoiding the warning would be to change the line
my($header,$tag,$freq)=split(' ', $line);to:
my ( $header, @rest ) = split ' ', $line;Update (thanks AnomalousMonk): And of course you would have to change your output line to:
print $FILE2 "$header\t@rest\n";
In Section
Seekers of Perl Wisdom