classical 'risk' board game in perl