#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @seq1 = qw(ATGC TGCT GCTA CTAA TAAC );
my @seq2 = qw(GTCA);

my @AoHSeq1 = AoH(@seq1);
my @charactersSeq2 = splitStringToCharacters(@seq2);
my %seq2Hash = ArrayToHash(@charactersSeq2);

my (@result,@found) = ();
my $line;
foreach my $arrayHashNum ( 0 .. $#AoHSeq1 ) {
    foreach my $key ( sort {$a<=>$b} keys %{ $AoHSeq1[$arrayHashNum] } ) {
	foreach my $character (values %seq2Hash) {
	    if ($character ne $AoHSeq1[$arrayHashNum]{$key}) {
		$line = "On element: $arrayHashNum from \@seq1, character ".$character." missmatched ".$AoHSeq1[$arrayHashNum]{$key}." form \@seq2 at position $key";
		push @found, $line;
	    }
	}
    }
    push @result, @found;
}

print Dumper \@result;

sub splitStringToCharacters {
    my @characters = split(//,$_[0]);
    return @characters;
}

sub ArrayToHash {
    my $i = 0;
    my %hash = map { $i++ => $_ } @_;
    return %hash;
}

sub AoH {
    my @characters = ();
    my @AoHCharacters = ();
    my %charactersSeq = ();
    foreach my $element (@_) {
	@characters = splitStringToCharacters($element);
	%charactersSeq = ArrayToHash(@characters);
	push @AoHCharacters , {%charactersSeq};
    }
    return @AoHCharacters;
}

__END__

$VAR1 = [
          'On element: 0 from @seq1, character C missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character T missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character G missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character C missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character G missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character A missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character C missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character T missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character A missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character T missmatched C form @seq2 at position 3',
          'On element: 0 from @seq1, character G missmatched C form @seq2 at position 3',
          'On element: 0 from @seq1, character A missmatched C form @seq2 at position 3',
          'On element: 0 from @seq1, character C missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character T missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character G missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character C missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character G missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character A missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character C missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character T missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character A missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character T missmatched C form @seq2 at position 3',
          'On element: 0 from @seq1, character G missmatched C form @seq2 at position 3',
          'On element: 0 from @seq1, character A missmatched C form @seq2 at position 3',
          'On element: 1 from @seq1, character C missmatched T form @seq2 at position 0',
          'On element: 1 from @seq1, character G missmatched T form @seq2 at position 0',
          'On element: 1 from @seq1, character A missmatched T form @seq2 at position 0',
          'On element: 1 from @seq1, character C missmatched G form @seq2 at position 1',
          'On element: 1 from @seq1, character T missmatched G form @seq2 at position 1',
          'On element: 1 from @seq1, character A missmatched G form @seq2 at position 1',
          'On element: 1 from @seq1, character T missmatched C form @seq2 at position 2',
          'On element: 1 from @seq1, character G missmatched C form @seq2 at position 2',
          'On element: 1 from @seq1, character A missmatched C form @seq2 at position 2',
          'On element: 1 from @seq1, character C missmatched T form @seq2 at position 3',
          'On element: 1 from @seq1, character G missmatched T form @seq2 at position 3',
          'On element: 1 from @seq1, character A missmatched T form @seq2 at position 3',
          'On element: 0 from @seq1, character C missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character T missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character G missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character C missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character G missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character A missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character C missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character T missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character A missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character T missmatched C form @seq2 at position 3',
          'On element: 0 from @seq1, character G missmatched C form @seq2 at position 3',
          'On element: 0 from @seq1, character A missmatched C form @seq2 at position 3',
          'On element: 1 from @seq1, character C missmatched T form @seq2 at position 0',
          'On element: 1 from @seq1, character G missmatched T form @seq2 at position 0',
          'On element: 1 from @seq1, character A missmatched T form @seq2 at position 0',
          'On element: 1 from @seq1, character C missmatched G form @seq2 at position 1',
          'On element: 1 from @seq1, character T missmatched G form @seq2 at position 1',
          'On element: 1 from @seq1, character A missmatched G form @seq2 at position 1',
          'On element: 1 from @seq1, character T missmatched C form @seq2 at position 2',
          'On element: 1 from @seq1, character G missmatched C form @seq2 at position 2',
          'On element: 1 from @seq1, character A missmatched C form @seq2 at position 2',
          'On element: 1 from @seq1, character C missmatched T form @seq2 at position 3',
          'On element: 1 from @seq1, character G missmatched T form @seq2 at position 3',
          'On element: 1 from @seq1, character A missmatched T form @seq2 at position 3',
          'On element: 2 from @seq1, character C missmatched G form @seq2 at position 0',
          'On element: 2 from @seq1, character T missmatched G form @seq2 at position 0',
          'On element: 2 from @seq1, character A missmatched G form @seq2 at position 0',
          'On element: 2 from @seq1, character T missmatched C form @seq2 at position 1',
          'On element: 2 from @seq1, character G missmatched C form @seq2 at position 1',
          'On element: 2 from @seq1, character A missmatched C form @seq2 at position 1',
          'On element: 2 from @seq1, character C missmatched T form @seq2 at position 2',
          'On element: 2 from @seq1, character G missmatched T form @seq2 at position 2',
          'On element: 2 from @seq1, character A missmatched T form @seq2 at position 2',
          'On element: 2 from @seq1, character C missmatched A form @seq2 at position 3',
          'On element: 2 from @seq1, character T missmatched A form @seq2 at position 3',
          'On element: 2 from @seq1, character G missmatched A form @seq2 at position 3',
          'On element: 0 from @seq1, character C missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character T missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character G missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character C missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character G missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character A missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character C missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character T missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character A missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character T missmatched C form @seq2 at position 3',
          'On element: 0 from @seq1, character G missmatched C form @seq2 at position 3',
          'On element: 0 from @seq1, character A missmatched C form @seq2 at position 3',
          'On element: 1 from @seq1, character C missmatched T form @seq2 at position 0',
          'On element: 1 from @seq1, character G missmatched T form @seq2 at position 0',
          'On element: 1 from @seq1, character A missmatched T form @seq2 at position 0',
          'On element: 1 from @seq1, character C missmatched G form @seq2 at position 1',
          'On element: 1 from @seq1, character T missmatched G form @seq2 at position 1',
          'On element: 1 from @seq1, character A missmatched G form @seq2 at position 1',
          'On element: 1 from @seq1, character T missmatched C form @seq2 at position 2',
          'On element: 1 from @seq1, character G missmatched C form @seq2 at position 2',
          'On element: 1 from @seq1, character A missmatched C form @seq2 at position 2',
          'On element: 1 from @seq1, character C missmatched T form @seq2 at position 3',
          'On element: 1 from @seq1, character G missmatched T form @seq2 at position 3',
          'On element: 1 from @seq1, character A missmatched T form @seq2 at position 3',
          'On element: 2 from @seq1, character C missmatched G form @seq2 at position 0',
          'On element: 2 from @seq1, character T missmatched G form @seq2 at position 0',
          'On element: 2 from @seq1, character A missmatched G form @seq2 at position 0',
          'On element: 2 from @seq1, character T missmatched C form @seq2 at position 1',
          'On element: 2 from @seq1, character G missmatched C form @seq2 at position 1',
          'On element: 2 from @seq1, character A missmatched C form @seq2 at position 1',
          'On element: 2 from @seq1, character C missmatched T form @seq2 at position 2',
          'On element: 2 from @seq1, character G missmatched T form @seq2 at position 2',
          'On element: 2 from @seq1, character A missmatched T form @seq2 at position 2',
          'On element: 2 from @seq1, character C missmatched A form @seq2 at position 3',
          'On element: 2 from @seq1, character T missmatched A form @seq2 at position 3',
          'On element: 2 from @seq1, character G missmatched A form @seq2 at position 3',
          'On element: 3 from @seq1, character T missmatched C form @seq2 at position 0',
          'On element: 3 from @seq1, character G missmatched C form @seq2 at position 0',
          'On element: 3 from @seq1, character A missmatched C form @seq2 at position 0',
          'On element: 3 from @seq1, character C missmatched T form @seq2 at position 1',
          'On element: 3 from @seq1, character G missmatched T form @seq2 at position 1',
          'On element: 3 from @seq1, character A missmatched T form @seq2 at position 1',
          'On element: 3 from @seq1, character C missmatched A form @seq2 at position 2',
          'On element: 3 from @seq1, character T missmatched A form @seq2 at position 2',
          'On element: 3 from @seq1, character G missmatched A form @seq2 at position 2',
          'On element: 3 from @seq1, character C missmatched A form @seq2 at position 3',
          'On element: 3 from @seq1, character T missmatched A form @seq2 at position 3',
          'On element: 3 from @seq1, character G missmatched A form @seq2 at position 3',
          'On element: 0 from @seq1, character C missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character T missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character G missmatched A form @seq2 at position 0',
          'On element: 0 from @seq1, character C missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character G missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character A missmatched T form @seq2 at position 1',
          'On element: 0 from @seq1, character C missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character T missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character A missmatched G form @seq2 at position 2',
          'On element: 0 from @seq1, character T missmatched C form @seq2 at position 3',
          'On element: 0 from @seq1, character G missmatched C form @seq2 at position 3',
          'On element: 0 from @seq1, character A missmatched C form @seq2 at position 3',
          'On element: 1 from @seq1, character C missmatched T form @seq2 at position 0',
          'On element: 1 from @seq1, character G missmatched T form @seq2 at position 0',
          'On element: 1 from @seq1, character A missmatched T form @seq2 at position 0',
          'On element: 1 from @seq1, character C missmatched G form @seq2 at position 1',
          'On element: 1 from @seq1, character T missmatched G form @seq2 at position 1',
          'On element: 1 from @seq1, character A missmatched G form @seq2 at position 1',
          'On element: 1 from @seq1, character T missmatched C form @seq2 at position 2',
          'On element: 1 from @seq1, character G missmatched C form @seq2 at position 2',
          'On element: 1 from @seq1, character A missmatched C form @seq2 at position 2',
          'On element: 1 from @seq1, character C missmatched T form @seq2 at position 3',
          'On element: 1 from @seq1, character G missmatched T form @seq2 at position 3',
          'On element: 1 from @seq1, character A missmatched T form @seq2 at position 3',
          'On element: 2 from @seq1, character C missmatched G form @seq2 at position 0',
          'On element: 2 from @seq1, character T missmatched G form @seq2 at position 0',
          'On element: 2 from @seq1, character A missmatched G form @seq2 at position 0',
          'On element: 2 from @seq1, character T missmatched C form @seq2 at position 1',
          'On element: 2 from @seq1, character G missmatched C form @seq2 at position 1',
          'On element: 2 from @seq1, character A missmatched C form @seq2 at position 1',
          'On element: 2 from @seq1, character C missmatched T form @seq2 at position 2',
          'On element: 2 from @seq1, character G missmatched T form @seq2 at position 2',
          'On element: 2 from @seq1, character A missmatched T form @seq2 at position 2',
          'On element: 2 from @seq1, character C missmatched A form @seq2 at position 3',
          'On element: 2 from @seq1, character T missmatched A form @seq2 at position 3',
          'On element: 2 from @seq1, character G missmatched A form @seq2 at position 3',
          'On element: 3 from @seq1, character T missmatched C form @seq2 at position 0',
          'On element: 3 from @seq1, character G missmatched C form @seq2 at position 0',
          'On element: 3 from @seq1, character A missmatched C form @seq2 at position 0',
          'On element: 3 from @seq1, character C missmatched T form @seq2 at position 1',
          'On element: 3 from @seq1, character G missmatched T form @seq2 at position 1',
          'On element: 3 from @seq1, character A missmatched T form @seq2 at position 1',
          'On element: 3 from @seq1, character C missmatched A form @seq2 at position 2',
          'On element: 3 from @seq1, character T missmatched A form @seq2 at position 2',
          'On element: 3 from @seq1, character G missmatched A form @seq2 at position 2',
          'On element: 3 from @seq1, character C missmatched A form @seq2 at position 3',
          'On element: 3 from @seq1, character T missmatched A form @seq2 at position 3',
          'On element: 3 from @seq1, character G missmatched A form @seq2 at position 3',
          'On element: 4 from @seq1, character C missmatched T form @seq2 at position 0',
          'On element: 4 from @seq1, character G missmatched T form @seq2 at position 0',
          'On element: 4 from @seq1, character A missmatched T form @seq2 at position 0',
          'On element: 4 from @seq1, character C missmatched A form @seq2 at position 1',
          'On element: 4 from @seq1, character T missmatched A form @seq2 at position 1',
          'On element: 4 from @seq1, character G missmatched A form @seq2 at position 1',
          'On element: 4 from @seq1, character C missmatched A form @seq2 at position 2',
          'On element: 4 from @seq1, character T missmatched A form @seq2 at position 2',
          'On element: 4 from @seq1, character G missmatched A form @seq2 at position 2',
          'On element: 4 from @seq1, character T missmatched C form @seq2 at position 3',
          'On element: 4 from @seq1, character G missmatched C form @seq2 at position 3',
          'On element: 4 from @seq1, character A missmatched C form @seq2 at position 3'
        ];