use strict;
use warnings;

sub test {
  print "something";
}

sub another_test {
  print "something else";
}

sub third_test {
  print "another unimaginative statement";
}

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