Select Code to Download

my %matches;
my $section;
...
  $section = $1;
}
push @{ $matches{$section} }, $line;

use Data::Dumper;

...
    }
    return \%matches;
}