#!/usr/bin/perl
use strict;
use warnings;

use Data::Dumper;
use Text::CSV_XS qw(csv);

sub make_list {
  my (%opt) = @_;

  my $headers = $opt{'headings'};
  my $filters;
  for my $header (@$headers) {
    if ($header =~ s/\+$//) {
      $filters->{$header} = sub { $_ = [split(/;\s*/, $_)]; $_ };
    }
  }

  my $list = csv (
    in               => $opt{file},
    headers          => $headers,
    key              => $opt{key} ? $headers->[0] : undef,
    filter           => $filters,
    sep_char         => '|',
    quote_char       => undef,
    empty_is_undef   => 1,
    allow_whitespace => 1,
  ) || die Text::CSV_XS->error_diag;
  
  return $list;
}

my $file = 'Artifacts.txt';
my $headers = ['item', 'seen in+'];

print Dumper make_list( file => $file, headings => $headers);