#!/usr/bin/perl
use warnings;
use strict;

my %tags;                     # hash to store tags/freqs
while(<DATA>){
    chomp;
    my($tag, $freq) = split;  # split the line on whitespace
    $tags{$tag} = $freq;      # save the tag and freq in the hash
}

# sort the hash numerically on its values, descending
for my $tag ( sort { $tags{$b} <=> $tags{$a} } keys %tags ){
    my $freq = $tags{$tag};           # put the freq for $tag in $freq
    my $header = make_header($tag, $freq);  # make the header
    print ">$header\t$tag\t$freq\n";        # print it out
}

sub make_header {
    my $tag = shift;     # get parameters
    my $freq = shift;
    my $r = int(rand(500000));     # pick a random number
    return "HWTI_${freq}_$r$tag";  # build the header
}

#input data
__DATA__
CCCDEDFFFES      45
EEBBBBGGGBB    1700
BBBCDDERFGG     850