for my $line (<FH>) { 
  my @unsorted = split / /, $line;
  # sort ascending
  my @sorted = sort @unsorted;
  # sort descending
  my @desc_sort = reverse @sorted;
}