Probier es mal mit chdir("./data")

Du koenntest open(ALT,"<choices.txt") or die $!; schreiben.
Da bekommst du dann naemlich auch die Fehlermeldung von Perl.

Ausserdem empfehle ich dir use warnings; use strict; in jedem Skript einzusetzen.

Gruss