#!/usr/bin/perl -w
use strict;

my $keep_keys = 0;
if ($ARGV[0] eq "-k") {
	$keep_keys = 1;
	shift;
}

my ($db) = @ARGV;

my %value;

open DB, $db;
while (defined (my $line = <DB>)) {
	chomp $line;
	my ($key, $value) = split /\t/, $line, 2;
	if (defined $value) {
		push @{$value{$key}}, $value;
	}
}
close DB;

while (defined (my $key = <STDIN>)) {
	chomp $key;
	if (exists $value{$key}) {
		for my $v (@{$value{$key}}) {
			if ($keep_keys) { print "$key\t"; }
			print $v, "\n";
		}
	} else {
		print "\n";
	}
}