Re: Can this code be optimized further?

There's a few improvements that can be made.

use strict;

my @temp = qw( a_1 b_1 a_2 a_3 a_4 b_2 a_5 b_3 a_6 b_4 );

my %values;
foreach (@temp) {
    /^([ab])_(.*)/ && do {
        push @{$values{$1}}, $2;
        next;
    };

    die "'$_' doesn't match the pattern of ^[ab]_.*\n";
}

print "$_ => @{$values{$_}}\n" for qw( a b );
[download]

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

Comment on Re: Can this code be optimized further? Download Code