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