# All "R" data files
my @data_r = glob "*R.fa";
# All "P" data files
my @data_p = glob "*P.fa";  

##</code><code>##

my @base_data = map substr($_, 0, length($_) - 4), @data_r;