my @fruit = qw/ apples oranges pears /;
my @salad = mix_up( @fruit );
print join(', ', @salad), "\n";

sub mix_up {
    return map { my $tmp=$_; map { $tmp eq $_ ? $_ : "$tmp$_" } @_; } @_;     
}