csv_test.pl

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

use Text::CSV;
use Data::Dumper;

my $csv = Text::CSV->new({
  sep_char => '|',
  quote_char => undef,
  blank_is_undef => 1,
  empty_is_undef => 1,
  allow_whitespace => 1,
});
$csv->column_names('Weapon','#AT','Dmg(S/M)','Dmg(L)','Range','Weight','Size','Type','Speed','KO','broad group','tight group');

my $fn = 'site/files/data/Role_playing/Reference_tables/Weapons.txt';
open(my $fh, '<', $fn) || die "Can't open $fn. $!";

my $array = $csv->getline_hr_all($fh);
my $hash  = {
  map { $_->{"Weapon"} => $_ } @$array
};

print Dumper($hash);