do { print if delete $unique{$_} } for @lines;