foreach $key (keys (%input)) { 
    print qq|The key is $key and the value is $input{$key}\n|;
 }