my @array = qw( foo bar foobar barfoo 1 2 3 );

foreach my $i (0 .. $#array) {
    $array[$i] = ucfirst($array[$i]);
}