#!/usr/bin/perl

use strict;
use warnings;

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

my $file_name = "file.txt";

open ( LINES, $file_name) or eval {
  warn "Can't open file $file_name.";
 exit;
};

my @parms = qw( date day name );

 while (my $line = <LINES>) {

   chomp $line;

   my $data;
   
   ( $data->{ date }, $data->{ day }, $data->{ name } ) = split(/,/,$line);

   print "\n $data->{ date }, $data->{ day }, $data->{ name }\n";

   pp @{ $rec }{ (@parms) };

}