my $string = 'This is my program';
print do {
    my @arr = split ' ', $string;
    join ' ', @arr[-1, 1..$#arr-1, 0],$/
};

##</code><code>##

my $string = 'This is my program';
{
   my @arr = split ' ',$string;
   print "@arr[-1, 1..$#arr-1, 0]$/"
}