my $file = 'a.txt';

open my $filehandle, '<', $file or die $!;
while( my $ziele = <$filehandle> ){
    # mach was mit der einzelnen Zeile
}
close $filehandle;