Select Code to Download

my @vars = (7, 12, 49, 44);
sub bubble_sort {
...
      }
   }
}

my @vars = (7, 12, 49, 44);
sub bubble_sort {
...
      }
   }
}

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

bubble_sort(\ascending);

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