sub findproc {
	my $possible_key = shift;	# get the argument passed to this sub
	if (defined $procedure{$possible_key}) {
		print $procedure{$possible_key}, "\n";	
	}
}