1.	my $sheet;
2.	my $count = -1;
3.	
4.	while( <DATA> ) {
5.	chomp;
6.	$count++;
7.	# skip header
8.	 next unless $count;
9.	my $row;
10.	 @$row = split( /,/, $_ );
11.	push @$sheet, $row;
12.	}