Re: A "strange" behaviour, at least to me :)

[NetWallah]

Perl is mis-parsing the line :

# 2
@values = sort arraynosort(Values=>\@orig_values);

as

@values = (sort arraynosort 'Values', \@orig_values);

and using the "arraynosort" as a Sort sub.

Adding parens fixes it:

@values = sort (arraynosort(Values=>\@orig_values));

An alternative fix is to give "sort" an empty "block", because it wants one:

@values = sort {},arraynosort(Values=>\@orig_values);

[ikegami]

@values = sort {},arraynosort(Values=>\@orig_values);

passes a hash ref to sort. You meant

@values = sort { $a cmp $b } arraynosort(Values=>\@orig_values);

---

By the way, the least invasive solution is:

@values = sort +arraynosort(Values=>\@orig_values);