Select Code to Download

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

my @sorted_array = sort {&sort_func($::a, $::b, $source, $data)} @arra
+y;
sub sort_func(){
...
  my $data   = $_[3];
  return $data{$source}{$var2} <=> $data{$source}{$var1};
}