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

my @array = ('one', 'two', 'three');

for my $element (@array) {
        $element = uc($element);
}

for my $element (@array) {
        print "$element\n";
}

exit;