sub ascending {
   my ($left, $right) = @_;
   return $right > $left;
}

bubble_sort(\ascending);