$ perl -MO=Deparse -e 'my @lexlist = @_ or sort keys %lexicon'
    sort keys %lexicon unless my(@lexlist) = @_;