#!/usr/bin/perl
use strict;
use warnings;

my @foo = 'a' .. 'd';
map { $_ = uc($_) } @foo; # look Mom, map in a void context
print "@foo\n";