Select Code to Download

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

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

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

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