#!/usr/local/bin/perl

$linenum = 0;
while ($line = <STDIN>) {
        $linenum += 1;
        $line =~ s/^\s+|\s+$//g;
        @words = split(/\s+/, $line);
        if ($words[0] eq "index" &&
                $index{$words[1]} eq "") {
                $index{$words[1]} = $linenum;
        }
}
foreach $item (sort keys (%index)) {
        print ("$item: $index{$item}\n");
}
