prel vs peurvios ptyhon sicrpt

#!/usr/bin/perl

use strict;

foreach (<>)
{
 foreach (split /\s+/)
 {
  my @letters = split //; 
  my $first_letter = shift @letters;
  my $last_letter = pop @letters;
  my $srecewdletters = join "", sort {int(rand(3))-1} @letters; 
  print "$first_letter$srecewdletters$last_letter ";
 }
 print "\n";
}

Inner process

Inner process is only found intelligent if the outcome can be used for something. The roads taken may have been created by hours of stupid thoughts leading nowhere. One can conclude thinking in circles didn't lead them anywhere - but does standing still do so?

Rules

Rules guide idiots whom can not think of the consequences themselves.