#! /usr/bin/env perl
use strict;
use warnings;

my $outfile = 'adresses.csv';


open my $OUTH, '>>', $outfile or die "open($outfile, w+) failed: $!";

for my $i ( 1 .. 1290 ) {

   my $infile = sprintf "%02d.pdf", $i;

   open my $INH, '<', $infile or die "open($infile,ro) failed: $!";
   ( undef, my $address ) = <$INH>;  # zweimal lesen; erste "Zeile" ignorieren
   print $OUTH $address;
   close $INH;
}

close $OUTH or die "close($outfile) failed: $!";