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", $_;
}   
}