#!/usr/local/bin/perl


dbmopen(%INVERTED, invertdatabase, 0644);

@sortedkeys = sort keys(%INVERTED);

foreach (@sortedkeys) {

	print "$_ -- $INVERTED{$_}\n";
}

dbmclose(%INVERTED);
