my @array = qw/the that which who when if this/;

foreach( @array[2 .. $#array] ) {
        $_ = uc $_; # $_ is an _alias_
}

print "@array\n";