Hallo kailly,

beim open stellst Du das tatsächliche Encoding Deiner Quelldatei ein.

Dein Problem kommt vermutlich bei der Ausgabe über die DOS-Konsole.

Füge vor dem ersten print-Befehl ein:

binmode(STDOUT, ":encoding(cp850)");

Dann sollte es klappen.

HTH
Grüße
payx