use strict;
use warnings;
#use Data::Dumper;

my ($content);
{ open my $fh,'<','work.conf' or die $!;
  local $/; 
  $content = <$fh>;
}
my $config = eval $content;

#print Dumper(\$config);
print 'Licences: ' . join ',', @{$config->{licence}};

##</code><code>##

printf "First licence: %s\n", ${$config->{licence}}[0];
printf "Second licence: %s\n", ${$config->{licence}}[1];

##</code><code>##

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})
}