>perl -wMstrict -le
"use Data::Dump;
 ;;
 my $sentence = shift;
 print qq{shifted: '$sentence'};
 ;;
 my @words = split(/\s+/, $sentence);
 dd \@words;
 ;;
 my $i;
 for($i=0;$i<scalar (@words);$i++)
 {
     print qq{$i: $words[$i]};
 }
"  the quick brown fox
shifted: 'the'
["the"]

0: the