#!/usr/bin/perl

# http://perlmonks.org/?node_id=1124725

use Data::Dump qw(pp);
use strict;
$| = 1;
my %answer;

for my $line ( 'AAALVDENEC', 'AATLVDEGDG' )
  {
  $answer{$line}{$_}++ for $line =~
    /(?=(AA|AL|DA|DE|DV|VD|DW|QD|SD|HD|ED|DY|VE|EN|EI|KE|NV|VP|FV|SS|WK|KK))/g;
  }

pp \%answer;


##</code><code>##

{
  AAALVDENEC => { AA => 2, AL => 1, DE => 1, EN => 1, VD => 1 },
  AATLVDEGDG => { AA => 1, DE => 1, VD => 1 },
}