foreach $line( keys %uniques ) {
    print "$line\n";
}