( $one, $two, $three ) == split '', huge_megabyte_scalar;

##</code><code>##

$#a = 10;
@a = split'', $huge_long scalar;

##</code><code>##

@hash{ listGenerator() } = ....;

##</code><code>##

@hash{ 1 .. keys %hash } = delete @hash{ listGenerator() };