use warnings;
use strict;
use Data::Dump;

my @array = ('Laziness', 'Impatience', 'Hubris');
for my $item (@array) {
    $item = "$item is cool";
}

dd @array;