It's a "feature" the OP built in using Tie::File.

To disable it, change this line
    tie my @file, "Tie::File", "dane";
to simply say
    my @file;

Cheers, Sören