1 2 3 4 5 6
foreach $_ (sort <> ) { next if( defined( $prevline ) && $_ eq $prevline ); $prevline = $_; print; }