my %matrix;

#...

    my ($source,$typ,$offset,$data)=($1,$2,hex($3),$4);
    my @data=unpack("(a2)*",$data);
    my $pos=$offset;
    $matrix{$typ}[$pos++]=shift(@data) while(@data);

#...

print Dumper(\%matrix);