perl -e "$$_==1 && print for sort keys %main::" -s -- -" Just" -" another " -"Perl " -"hacker,"