my %joinedList = map { /(.*)=(.*)/ } @list_two, @list_one;
my @list = map { "$_=$joinedList{$_}" } keys %joinedList;