my $line = "One two three four five";
if (my @captures = split(' ', $line)) {
   $captures[0] = uc($captures[0]);
   print "$_: $captures[$_-1]\n" for 1..5;
}