foreach (@inhalt =~ /ausdruck/) {
   - speichere die Position von $_
   - speichere n Elemente vor und nach $_
    (dazu brauche ich eben den Index)    }

# Ganz für Anfänger;)

for (my $i = 0; $i < @inhalt; $i++) {
  if ( $inhalt[$i] =~ /ausdruck/ ) {
    my $pos = $i; # das ist der Index 
    # und so weiter
  }
}

for(0..$#inhalt){
  print $_ if($inhalt[$_] =~ /ausdruck/);
}

for my $count (0..$#array) {
  if ($array[$count] =~ /ausdruck/) {
    print "An der Stelle $count habe ich etwas gefunden."
  }
}

foreach (@inhalt =~ /ausdruck/) {
   - speichere die Position von $_
   - speichere n Elemente vor und nach $_
    (dazu brauche ich eben den Index)    }

use strict;
use warnings;

my @vor = qw(a b c);
my @nach = qw(x y z);
my @Liste = qw(7 6 5 4 3);

my $re = qr(^6$);

my @Neu = map {
    /$re/
    ?
    (@vor, $_, @nach)
    :        
    ($_)
} @Liste;

print @Neu, $/;