Bug?

[Kieren Diment]

In a short subroutine, this:

    use List::Util qw/shuffle/;
    my @list = @{$self->answer_list_orig_order};
    @list = shuffle @list if $self->random_order;
    return \@list;

does what's expected.  Returns the shuffled list.

This:

use List::Util qw/shuffle/;
my @list = @{$self->answer_list_orig_order};
@list = shuffle @list if $self->random_order;
return \@list

returns the list unshuffled.

What's up with that?