#!/usr/bin/perl

$arrayname = $arrayname[rand(50)];        # Pick a random array.
eval '$' . $arrayname . '{$beastie} = 1'; # Set a value in it.
