#! perl -slw
use strict;
use Data::Dumper;

my @data = ( [ split ',', <DATA>], [ split ',', <DATA> ], [ split ',', <DATA> ] );

print Dumper \@data;

__DATA__
 "Jan","Feb","Mar","Apr","May","June","July","Aug","Sep","Oct","Nov","Dec"
3,5,7,2,4,9,6,3,6,1
8,4,1,8,9,3,5,1,3,8