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