perl -MData::Dump=dd -le " @g= qw/ foo_1-a foo_2-b foo_3-b foo_4-b bar
+_1-a bar_2-a bar_3-b bar_4-a bar_5-b /; for(@g){ /([^_])+/ and push @
+{ $f{$1} }, $_; } dd( \%f ); "
{
  o => ["foo_1-a", "foo_2-b", "foo_3-b", "foo_4-b"],
  r => ["bar_1-a", "bar_2-a", "bar_3-b", "bar_4-a", "bar_5-b"],
}
[download]