Here it is in one line, but this has the (unfortunate side effect/added feature) of choping @array to $n entries.

use Data::Dumper;

my @array;
my $n = 10;
sub get_bytes { map {rand($_)} 1..$_[0] }

$array[$_]->{bytes} = 'fake' for  (1..$n);

@array = map {$array[0]->{bytes}=$_;shift @array} get_bytes($n);

print Data::Dumper::Dumper(\@array);
[download]