#!/usr/bin/perl -n
BEGIN { die "usage: $0 index\n" if @ARGV != 1 ; $index = shift; }
chomp; system "look", "$_\t", $index and print "\n";