#!/usr/bin/env perl

use strict;
use warnings;
use v5.10;

use Data::Dumper;
use Spreadsheet::Read;

my $data_str = "A,B,C\na,b,c";
open (my $fh, '<', \$data_str ) or die 'Could not open file handle';

my $data = ReadData(
    $fh,
    parser=>"csv",
    debug => 9
);

close($fh);

say Dumper $data;

exit;
[download]