# ./danish.pl == your code
Karls-Mac-mini:Desktop karl$ ./danish.pl danish.txt  > out.txt
Karl-Mac-mini:Desktop karl$ diff danish.txt  out.txt
#...seems like it's OK