You're getting snarled up in indexes. In perl it is better to print arrays as single arguments, forming a list argument for print. You can sort on the fly before printing. Since you want newlines between fields, we'll change the output field seperator to suit.

{
    local $, = "\n";
    print sort @{$Tests{$test}};
}
[download]

Update You appear to have a foreach () {} else {} construct there. Is this really the code that's dropping a line? What you show shouldn't compile.

After Compline,
Zaxo