my ($source,$typ,$offset,$data)=($1,$2,hex($3),$4);
    my $j = 0;
	for (my $i=0; $i<length($data);$i=$i+2){
		$matrix[$typ][$offset+$j]= substr($data,$i,2);;
		$j++;
	}