my $messages = $results->msgs(); # $messages now contains a hashref

# The arrow operator de-references the hashref
print "input two:  ", $messages->{two}, $/;
print "input three:  ", $messages->{three}, $/;

# Or de-reference it first and then print
my %messages_hash = %$messages;
print "input two:  ", $messages_hash{two}, $/;
print "input three:  ", $messages_hash{three}, $/;

# Or print out everything in messages
while (my($key, $value) = each %$messages) {
  print "input $key:  $value$/";
}