Select Code to Download

my @ary = qw( test another_test third_test );
my $sub_i_want_to_call = $ary[rand(@ary)];

...
  no strict 'refs';
  &{$sub_i_want_to_call};
}