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

my $enum_size =0;
my %hash;

my $sub_length = 2;
my $lmer;
my $i=0;
open (DATA,"<C:\\temp.txt");
my @temp=<DATA>;
chomp $temp[$i];
$enum_size = length ($temp[$i])  - $sub_length +1;
 for (my $j =0 ;$j <$enum_size ;$j++)
 {
 	 my @array;
	for($i=0;$i<@temp;$i++){
		chomp $temp[$i];
	   $lmer = substr ($temp[$i], $j, $sub_length);
	   push @array, $lmer;
	   print "Array $j:@array";
	   print "\n";
	}
   $hash{$j}=[@array];
 }
 print Dumper \%hash;