for(my $k=0; $k<length($key)-1; $k++){