@results = map { ucfirst } @results;
[download]

and the "legs on the snake" version

    @results = map { ucfirst lc  } @results;
[download]

The perlre page notes that there are perlfunc parallels for each of the quoting and RE escapes \u   \l   \U   \L .