use strict ;
use warnings ;

my $tempfile = "temp_file_name.txt" ;
my $outfile  = "/path/to/values" ;

open IN, $tempfile or die $! ;
open OUT, $outfile or die $! ;

while (<IN>) {
  chomp ;
  my ($name,@values) = split ;
  print OUT join(" ",$name,reverse sort @values),"\n" ;
}

close OUT ;
close IN ;