use File::Spec::Functions qw/catfile/;
...
if (ref($config->{licence}) eq 'ARRAY') {
  foreach my $lfile (@{$config->{licence}}) {
    print catfile($::folder,$lfile)
  } 
} else {
    print catfile($::folder,$config->{licence})
}