#!/usr/bin/perl -l
use strict;
use warnings;

my $string = 'P,F,';

my %letters = map { $_ => 1 } split /,/, $string;

for (qw(P F T)) {
    print "$_ is ", $letters{$_} ? "set" : "not set";
}