Wörter sortieren und doppelte löschen in Perl

#!/usr/bin/perl -w
# GPLv3
# David Kleuker

open (DATEI, ">output.txt");

@data = qw (

Apfel        Fruchtfleisch
Haus Apfel
Kabel     Theater
Baum
Apfel          Baum

);

#Dublikate löschen
%hash = map{$_,1}@data;
@data = keys %hash;

# Alphabetisch sortieren
@data = sort { $a cmp $b } @data;

# In Textdatei schreiben
foreach (@data){
    print DATEI $_ . "\n";
}
close (DATEI);