#!/usr/bin/perl -w

use strict;

use IO::File;


my $apt_lists = IO::File->new("cat /var/lib/apt/lists/*_Packages |");

my $apt_lists_filenames = read_deb_filenames($apt_lists);

my ($package, $filename);
while ($package = <STDIN>) {
	chomp $package;
	$filename = $$apt_lists_filenames{$package};
	print "$package\t$filename\n";
}

sub read_deb_filenames {
	my ($file) = @_;
	my (%filename, $package, $line);
	while ($line=<$file>) {
		if ($line =~ /^Package: (.*)$/) {
			$package = $1;
		} elsif ($line =~ /^Filename: (.*)$/) {
			$filename{$package} = $1;
		}
	}
	return \%filename;
}