while(<plate_file>) {
	if(/(.*)\n/){
		@row=split(/,/,$1);
		shift(@row);
		push(@data,@row);
	}
}