my @tokens= qw( $  \#   ;  \,   if   else   else\ if );
             # '$' '#' ';' ',' 'if' 'else' 'else if'