#!/usr/bin/perl

@KLEIN=;
chomp (@KLEIN);

@GROSS = &upcase_in (@KLEIN);
print (@GROSS);

sub upcase_in {
	my @param = @_;
	for (@param) {tr/a-z/A-Z/}

	return wantarray ? @param : $param[0];
}