Unikke linier
* Problemet:
- udskriv første forekomst af en given linie
- rækkefølgen _skal_ bibeholdes
+ sort -u = no go
#!/usr/bin/perl
while(defined($line=<>)) {
if(!($seen{$line} > 0)) { print $line }
++$seen{$line};
}