#!/usr/local/bin/perl -w

use strict;
use List::Util qw(shuffle);

my @countries = qw(Italy Germany Austria England France Russia Turkey);
my @players   = shuffle map { ucfirst $_ }@ARGV;

if (@players < 5) {
	die "There must be at least 5 players\n";
}

if (@players<7) {
	print "Getting rid of Italy\n";
	shift @countries;
}
if (@players<6) {
	print "Getting rid of Germany\n";
	shift @countries;
}

print "Number of players is $#players \n";


foreach (@players) {
	my $country = shift @countries;
	print "$_ => $country\n";
}