my ( @a, @b);
{
   no strict "refs";
   push @{substr( $_,0,1)}, substr($_,2) foreach ( @temp)
}
[download]

There is not much point in avoiding sym-refs here.

Be well,
rir