open(FILE, "<dup01032004.txt");

while (<FILE>) {

    $hash{$.} = $_;

}

close(FILE);



foreach (keys %hash) {

    print("$hash{$_}");

}