Script for establishing a random draft order for Fantasy Baseball 2011

Random draft order

#!/usr/bin/perl

@t=("D.J. Vajazzle",
    "Tu Madre",
    "Royal Rooters",
    "The Darkhorse",
    "The Mighty Hamsters",
    "Amish Rake Fight",
    "PhineusGageHeadaches",
    "Misfit Chinese Food",
    "Jeters Never Prosper",
    "Zombie Slugga's",
    "Sandwich Assassins",
    "TBD");

# Fisher-Yates shuffle
# <http://en.wikipedia.org/wiki/Fisher%E2%80%93Yates_shuffle#The_modern_algorithm>
my $i = @t;
while ($i--) {
    my $j = int rand ($i+1);
    @t[$i,$j] = @t[$j,$i];
}

$i=1;
print map { $i++ . ") $_\n" } @t;