my $zaehl = 0xFFC10000;

sub adr {
    if ($zaehl == 0xFFC10000) {
       printf "%08X\n", $zaehl;
    }
    $zaehl += hex("00000010");
   printf "%08X\n", $zaehl;
    
}

my $text = "haus";
my $artikel = "das";
my $text = $artikel . " " . $text;
print "$text\n";

sub adr {
my @array = shift;                #Übergabe wird übernommen
foreach(@array) {                 #Das neue Array wird durchlaufen
if ($_ == 0xFFC10000) {       #Deine Prüfung ...
      printf "%08X\n", $_;
}
$_ = hex("00000010") . $_;   #$_ wird dein hex() mit dem vorherigen Wert von $_
printf "%08X\n", $_;
}   
}

my $zaehl = 0xFFC10000;
my @array = 13..27;            # Beispieldaten
foreach my $val (@array) {
    printf "%08X: %08X|n", $zaehl, $val;
    $zaehl += 0x10;
}