eval join '', map /(.*)_(.*)/ ? "push \@$1,'$2';" : (), @temp;

##</code><code>##

/(.*)_(.*)/ && eval "push \@$1,'$2'" for @temp;