if (my $ans = $hash{$input}) {
    print "$input => $ans\n";