my $sub_i_want_to_call = $ary[rand @ary];
my $sub_ref = __PACKAGE__->can( $sub_i_want_to_call );
$sub_ref->();

##</code><code>##

__PACKAGE__->can( $ary[rand @ary] )->();