while (my $line=<$FILE1>)
{
    chomp $line;
    $line=~s/\t/,/g;
    my @columns=split(/,/, $line);
    my $tags=$columns[0];
    #$tag{$columns[0]}=\@columns;
     $tag{$tags}=$line;
}


    foreach my $tags (keys %tag){
	my $header;
	my $range=500000;
	my @columns=split(/,/,$tag{$tags});
        $tags=$columns[0];
       my $freq=$columns[1];
	my $random_number=int(rand($range));
        $header=">HWTI_".$freq."_".$random_number.$tags;
	$header=~tr/"//d;
	my $printline=$tag{$tags};
	$printline=$header.",".$printline;
	        
	print $FILE2 "$printline\n";
	
	}