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