unless(@lexlist){@lexlist = sort keys %lexicon};


##</code><code>##

&lex();

&lex(1,2,3);

sub lex{
  @lexlist = @_;
  if(@lexlist){
    print "I got the lexlist, here it is: @lexlist \n"
  }else {
    print "where's the list?\n";
  }
}



##</code><code>##

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;