#!/usr/bin/perl

use warnings;
use strict;

use Tie::File;

my @filter;
tie(@filter, 'Tie::File', "Filter.txt") or die $!;

my $i;
foreach $i (@filter) {
    print "$i\n";
}

# Am Ende:
untie(@filter);