#mafia_gen

use strict;
use warnings;
use List::Util 'shuffle';

my @pnames = qw/Apostate Beanybag Blueflash Bobble Broodje Drasha Emiya HungLoSack Lyrika Mendel Red Reldnahc ScoutTier SpaceSavage SuwakoChan Tarasque Thear22 TheJoo YawningAngel/;
my @rolelist = qw//;

my @nonpr = qw/Swiftblade Moon_Queen Zephyr Magebane Nomad Valkyrie Engineer Silhouette Emerald_Warden Monkey_King Master_of_Arma Nymphora Thunderbringer Pollywog_Priest Pyromancer Bubbles Aluna Monarch Armadon Hammerstorm Pebbles Pandamonium Rampage Tundra Gladiator Flux Drunken_Master Midas/;

while ($#pnames > $#rolelist) {
    @nonpr = shuffle(@nonpr);
    push @rolelist, pop @nonpr;
}


for (0..10) {
@pnames = shuffle(@pnames);
@rolelist = shuffle(@rolelist);
}

open TXT, ">./playeroles.txt";
select TXT;
for (0..$#pnames) {
    printf "%-15s", "$pnames[$_]";
    print " - $rolelist[$_]\n";
}