## longer to shorter
my $et = 'D' x $longer . 'I' x $shorter;

## shorter to longer
my $et = 'D' x $shorter . 'I' x $longer;