#!/usr/bin/perl
use strict;

my @word_array = split '', "iguana";
fisher_yates_shuffle(\@word_array);

print "Word is ", join ('', @word_array), "\n";

# From perldoc -q shuffle:
sub fisher_yates_shuffle {
    my $deck = shift;  # $deck is a reference to an array
    my $i = @$deck;
    while ($i--) {
        my $j = int rand ($i+1);
        @$deck[$i,$j] = @$deck[$j,$i];
    }
}