After adding the very important

use strict;
use warnings;
[download]

I get

Global symbol "@sorted" requires explicit package name at line 13.
Execution aborted due to compilation errors.
[download]

I presumed a missing my @sorted = @array; and got:

Use of uninitialized value in hash element at line 17.
Use of uninitialized value in concatenation (.) or string at line 23.
Use of uninitialized value in hash element at line 23.
Use of uninitialized value in hash element at line 17.
Attempt to use reference as lvalue in substr at line 19.
Can't use string ("IASH(0x818b194)") as a HASH ref while "strict refs"
+ in use at line 19.
[download]

Have you looked at those at all?