http://www.perlmonks.org?node_id=939306


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";