#!/usr/bin/perl @all = ($love["fair"], $war["fair"]);