my (@a, @b);
my %router = (a => \@a, b => \@b);
foreach my $value (@temp) {
    push @{$router{$1}}, $2 if $value =~ /([ab])_(.*)/;
}
print "@a <==> @b";