use strict;
use warnings;

sub test {
  print "something";
}

sub another_test {
  print "something else";
}

sub third_test {
  print "another unimaginative statement";
}

$\ = "\n";
my @ary = qw( test another_test third_test );
my $sub_i_want_to_call = $main::{$ary[rand(@ary)]};
$sub_i_want_to_call->();