% perl -MO=Deparse -le '@livesys = sort &Con::liveones;' BEGIN { $/ = "\n"; $\ = "\n"; } @livesys = sort(&Con::liveones); -e syntax OK % perl -MO=Deparse -le '@livesys = sort Con::liveones();' BEGIN { $/ = "\n"; $\ = "\n"; } @livesys = (sort Con::liveones ()); -e syntax OK