in reply to Array shuffle code produces 'Modification of non-creatable array value attempted' error
toolic's code works on Perl 5.18.2 as well.