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

##</code><code>##

my @sorted_array = sort {&sort_func($::a, $::b, $source, $data)} @array;
sub sort_func(){
  my $var1 = $_[0];
  my $var2 = $_[1];
  my $source = $_[2];
  my $data   = $_[3];
  return $data{$source}{$var2} <=> $data{$source}{$var1};
}