my @result2 = sort custom keys %$VAR2;