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