Select Code to Download

$record[$_]->{bytes} = [get_bytes($num)]->[$_] for 0..$num;

$record[$_]->{bytes} = $tmp[$_] for 0..$#tmp;