my %values;

while (<INFILE>){
    chomp;
    next unless (/\t/);
    my ($key, $value ) = split(/\t/, $_, 2);
    $values{$key}=$value;
}

foreach my  $key (sort keys %values) {
    print OUTPUT "$key: $values{$key}\n";
}