%{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");