...
my %switches = map { $_ => 1} @switches;
while (<DATA>) {
   chomp;
   my ($time, $name, $state) = split /,/;
   next if !$switches{$name};
   ...
}
...