my $coderef = # your code above
print map { "$_\n" } sort @{$coderef() -> { catrand }};