use warnings;
use strict;
my ($str,$x,$y,$c,$d);
$str.=chr($_) for 65..90;
$x++;
--$y;
$c += 10;	
$d -= 2;
print "$str $x $y $c $d\n";
__END__
ABCDEFGHIJKLMNOPQRSTUVWXYZ 1 -1 10 -2

##</code><code>##

$hash{foo}.=$foo;
next if $dupe{$_}++;