#!/usr/bin/perl
use Data::Dumper;

$huita = 'abc';
@array = qw/ccc kkk/;

$_ = uc for $huita, @array;

print "$huita\n";
print Dumper \@array;