my @occult = split '', 'HAL';
$_++ for @occult;
print join( '', @occult ) . $/;