perl -le 'print sort grep $$_ eq 1, keys %main::' -s -- -' Just' -' another ' -'Perl ' -'hacker, '