%{array[1]} = { key1 => 3, key2 => 2, key3 => "test" };
%{array[2]} = { key1 => 2, key2 => 1, key3 => "test2" };
%{array[3]} = { key1 => 3, key2 => 1, key3 => "test3" };
%{array[4]} = { key1 => 1, key2 => 1, key3 => "test4" };

&sortarrayofhashes(\@array,"key1","key2");
[download]

now the arrays look like this:

# NOTE, the following is not perlcode, just statement of fact

$array[1]{key1} == 1
$array[1]{key2} == 1
$array[1]{key3} == test4
$array[2]{key1} == 2
$array[2]{key2} == 1
$array[2]{key3} == test2
$array[3]{key1} == 3
$array[3]{key2} == 1
$array[3]{key3} == test3
$array[4]{key1} == 3
$array[4]{key2} == 2
$array[4]{key3} == test
[download]

So that's the result I'm looking to be able to obtain. THnaks