#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dump;
use feature qw(say);

my @s = split //, "AAAA";
my @m = map { $s[$_] . ' ' . $s[ $_ + 1 ] } 0 .. $#s - 1;

dd \@m;

say scalar @m;

__END__