#!/usr/bin/perl
use Data::Dumper;
$huita = 'abc';
@array = qw/ccc kkk/;
$_ = uc for $huita, @array;
IyEvdXNyL2Jpbi9wZXJsCnVzZSBEYXRhOjpEdW1wZXI7CgokaHVpdGEgPSAnYWJjJzsKQGFycmF5ID0gcXcvY2NjIGtray87CgokXyA9IHVjIGZvciAkaHVpdGEsIEBhcnJheTsKCnByaW50ICIkaHVpdGFcbiI7CnByaW50IER1bXBlciBcQGFycmF5Owo=