Array Perl

print "@{[uc(hello)]} there.\n";