Replace "keys %hoa" with the list of specific names.

By the way, $input = $_ is wrong.
$input = $_ is an assignment.
$input == $_ is a numerical comparison.
$input eq $_ is a string comparison.
See perlop.