I humbly present this wee sub that can help answer this question.

sub what_can_i_do_given {
	my $given = shift;
	if ($given =~ /A lift from the muck/i){
		return (q~I can see the horizon~);
	}
	elsif ($given =~ /Freedom from my chains/i){
		return (q~I can see art~);
	}
	elsif ($given =~ /A Canvas/i){
		return (q~I create art~);
	}
	elsif ($given =~ /An Ear/i){
		return (q~I sing~);
	}
	elsif ($given =~ /Perl/i){
		return (q~I can see the horizon~, 
			q~I can see art~,
			q~I create art~,
			q~I sing~);
	}
	else {
		return (q~I don't know~,
			q~Go Away!~,
			q~Your Problem / 0~);
	};
};