@letters=qw/A B C D E F/;
my $len=4;