$ cat SR.pl
use strict; use warnings; use feature 'say';
use Data::Dumper;
use Spreadsheet::Read;

my $csv = do { local $/; <DATA> };
my $data = ReadData( $csv, debug => 9 );

say Dumper $data;

__DATA__
A,B,C
a,b,c