my $i = 0; # or whatever
$record[$i++]->{bytes} = $_ for get_bytes($num);

##</code><code>##

push @record, map { {bytes => $_} } get_bytes($num);

##</code><code>##

@a = map { k => $_ } (1..3);