#!/usr/local/bin/perl

# assume %oldarray is assigned here
while (($subscript, $value) = each (%oldarray)) {
        if (defined ($newarray{$value})) {
                print STDERR ("$value already defined\n");
        } else {
                $newarray{$value} = $subscript;
        }
}
