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