Just for fun, let's construct it in one statement with $_ the only temporary variable,

@ALink{'Fred', 'Barney', 'Wilma', 'Peggy'} = map {
    [map {int rand 30} 0..4]
} 0..3;
[download]

That's called a hash slice.