while ( defined( my $token = $lexer->() ) ) {
    next if ! defined $token or ! defined @$token; # Skip blank lines - no tokens
    my ( $label, $value ) = @$token;
    print "$label => $value\n";

    #print Dumper($token);

}