Yes. Use the List::Util first function.

use List::Util qw(first);

if (my $match = first {$input{$_}} qw(info1 info2 info3)) {
       print "First Matched key: $match";
       print "First Matched value: $input{$match}";
}
else {
       print "none of the conditions were met\n";
}
[download]

- Miller