use strict;
use warnings;

my @component = qw / abs def gki jkl mno /;

for (@component)	{
my $comp = $_;
our ${$comp.'_this_01'} = "C:/Stuff/${_}_this_01.csv";
}