#!/usr/bin/perl -w
use strict;
use Dumpvalue;

my $d = new Dumpvalue;
my %count;

my $DNAstr = <DATA>;
chomp($DNAstr);

my @bases = split //, $DNAstr;

for(my $i = 0 ; $i < scalar(@bases); $i++){
	$count{$bases[$i]}++;
	$count{$bases[$i].$bases[$i+1]}++ if(defined $bases[$i+1]);
	$count{$bases[$i].$bases[$i+1].$bases[$i+2]}++ if(defined $bases[$i+2]);
}

$d->dumpValues(\%count);