use File::Spec::Functions qw/catfile/; my $filename = catfile($::svn, ${$config->{license}}[0]); my $filename1 = catfile($::svn, ${$config->{license}}[1]);