foreach (@ARGV) { my $character = $_;