for my $k (@k){
$k=$_{lc$k};
}