my @filenames = qw(foo_CF_foo bar_CF_bar baz_NOCF_baz);
my $file = $filenames[0];