The functionality of keys operating on an array to return the indices of the array (see similarily values, each) was added with Perl version 5.12. The following will work with any Perl 5 version:
    sub inplace_shuffle { @_[ 0 .. $#_ ] = shuffle @_ }