Select Code to Download

use strict;
use warnings;
...

my $Foo = join(($_ eq 'One' ? '1' : 'n'), @FieldNames);
print("\$Foo\[$Foo\]\n");