I want something like I have when I use text::CSV to read the file and turn it into hashref:

# Read file from path
my @rows; 
my $csv = Text::CSV->new ( { binary => 1, sep_char => "\t" } )
                   or die "Error creating TSV object: ".Text::CSV->err
+or_diag ();
 
open my $fh, "<:encoding(utf8)", "$filename"
                    or die "Error reading CSV file: $!";

$csv->column_names ($csv->getline ($fh)); # Get header names
while ( my $record = $csv->getline_hr( $fh ) ) {
     # Process record
     push @rows, $record;
}
$csv->eof or $csv->error_diag();
close $fh;

print Dumper \@rows;
[download]

This is the output after reading the file:

$VAR1 = [
          {
            'ID' => '4564',
            'Date' => '4-05-1986,
            'Name' => 'Mengano'
          }
       ];
[download]

See selectall_arrayref

my $ar = $dbh->selectall_arrayref( 
      'SELECT * FROM table',
      { Slice => {} } );
print Dumper $ar;
[download]

poj

Thank you very much, that's what I was searching for! Appreciate it :)