#!/usr/local/bin/perl

# this version prints out the unique lines in a file, but
# the order is not guaranteed to be the same as they appear
# in the file

foreach (  ) { $unique{$_} = 1 ; }
print keys(%unique);  # values(%unique) is the other half