Select Code to Download

my %skipaccount;
$skipaccount{$_} = 1 for qw(77403 77404 77406 77407 77408 77409 77411 
+77412 77413 77414 77416 77418);

later:
$suppress = 1 if $skipaccount{$fields[8]};