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