if(/^\%/) {
    my $full = join ' ', @line[1 .. $#line];
    push @{$outer{$line[0]}}, $full;
}