($record[0]->{bytes}, $record[1]->{bytes}) = get_bytes(2);

##</code><code>##

@tmp = get_bytes($num);
for ($i=0;$i<scalar(@tmp);$i++) {
 $record[$i]->{bytes} = $tmp[$i];
}