#!/usr/bin/perl
$love{'all'}='fair';
$war {'all'}='fair';