#!/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;
}