Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -l
use strict;
...
for (qw(P F T)) {
    print "$_ is ", $letters{$_} ? "set" : "not set";
}

Select or download this
```
P is set
F is set
T is not set
```