Select Code to Download

my @questions

# a question from the Tasmanian Devil
push @questions, {id => 1, text => "Why for you want to bury me in the
+ cold, cold ground?, show => 1};
# etc.

# Maxwell Smart?
my $new_q = {id => 9, text => "Shall we use the Cone of Silence?, show
+ => 1};

splice @questions, 9, 0, $new_q;