Perl is very particular about the arguments to sort. In this case perl is interpreting your code to mean that it should use Con::liveones to sort the empty list ().

You should just store the list in a temporary array, otherwise you'll have to do something hideous like this:

my @livesys = sort @{[Con::liveones()]};
[download]