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

##</code><code>##

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