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

##</code><code>##

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

##</code><code>##

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

sub war {
    print "All is fair in love and war.";
}