my @array=qw( the that which who when if this);
my $size=$#array+1;
for(my $i=2;$i<$size;$i++){
  $array[$i]=uc $array[$i];
}