my $section = 'section1'; # or whichever you're looking in.
my $key = 'key2'; # ditto

while (<FH>) {
  for (/$section/ ... /section/) {
    print $1 if /$key: (\w+)/;
  }
}