my @sorted_array = sort sort_func @array;
sub sort_func($$){
  my $var1 = $_[0];
  my $var2 = $_[1];
  return $var2 <=> $var1;
}