#!/usr/bin/perl
#use strict;
use warnings;

my $input_data = << 'REPORT_OF_INPUT';
Bet01;;Bet05;;Bet06;;Bet12;;
230;238;101;103;138;146;112;116;;
230;238;101;103;146;146;108;112;;
224;238;0;0;146;146;110;118;;
238;238;0;0;146;146;112;114;;
REPORT_OF_INPUT

my @inputs = split "\n", $input_data;

my $line = shift @inputs;
$line =~ s/;;/;/g;
my @loci_codes = split ";", $line;

foreach $line ( @inputs )
{
  my @alelos = split ";", $line;
  foreach my $locus ( @loci_codes )
  {
    no strict 'refs';
    my $allele1 = shift @alelos;
    my $allele2 = shift @alelos;
    ${$locus}{$allele1} += 1;
    ${$locus}{$allele2} += 1;
  }
}

foreach $locus ( @loci_codes )
{
  foreach my $key ( keys ( %{$locus} ) )
  {
    print "$locus ", $key, " = ", $$locus{$key}, "\n";
  }
}