Select Code to Download

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

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

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