Maybe you have trailing blank lines .

while (my $line = <$lines>) {
  next unless $line =~ /\S/;  # <- add
  chomp $line;
  .
  .
[download]

What does your program look like?

Here, and I can not get it to work:


#!/usr/bin/perl

use strict;
use warnings;

use Data::Dump 'pp';
use Data::Dumper;

my $file_name = "file.csv";

open my $lines, '<', $file_name
  or die "Can't open file $file_name, $!";

my @parms = qw( date day name );

while (my $line = <$lines>) {

    next unless $line =~ /\S/;  # <- add

   chomp $line;
   
   my $data;

   
   ( $data->{ date }, $data->{ day }, $data->{ name } ) = split(/,/, $
+line);
   
   pp @{ $data }{ (@parms) };
}
[download]

What do you get with this

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dump 'pp';

my $file_name = "file.csv";
open my $lines, '<', $file_name
  or die "Can't open file $file_name, $!";

while (my $line = <$lines>) {
  pp $line;
}
[download]

Here's what I get from the code you just posted and the data from above:

c:\@Work\Perl\monks\Anonymous Monk\1158543>perl -e
"use strict;
 use warnings;
 ;;
 use Data::Dump 'pp';
 use Data::Dumper;
 ;;
 my $file_name = \"file.csv\";
 ;;
 open my $lines, '<', $file_name
   or die \"Can't open file $file_name, $!\";
 ;;
 my @parms = qw( date day name );
 ;;
 while (my $line = <$lines>) {
   next unless $line =~ /\S/;
   chomp $line;
   my $data;
   ( $data->{ date }, $data->{ day }, $data->{ name } ) = split(/,/, $
+line);
   pp @{ $data }{ (@parms) };
  }
"
("01/04/2014", "Friday", "Joe")
("02/11/2011", "Monday", "Mary")
("05/09/2016", "Monday", "Ann")
("07/02/2013", "MOnday", "Marc")
[download]

---

Give a man a fish:  <%-{-{-{-<