foreach $key (keys(%data)){ 
if($key{$data} eq $input){ 

##</code><code>##

foreach $key ( keys(%data) ){ 
    if($key eq $input){