while ( my ($k,$val) = each ($k)) {
     
     print $k{val} ;
  } 
}