sub random {
    my @array = split //, shift;
    for (my $i = @array; --$i; ) {
        my $j = int rand ($i+1);
        @array[$i,$j] = @array[$j,$i];
    }
  return join '', @array;
}

print random('hello');