So if you want to use:

tryfirstchoice() or trysecondchoice() or trynextchoice or .... trylast
+choice();
[download]

then why not just do so?

#!/use/bin/perl -lw

tryfirstchoice() or trysecondchoice() or  trylastchoice();

sub tryfirstchoice
{
    print "tryfirstchoice";
    return;
}

sub trysecondchoice
{
    print "trysecondchoice";
    return 1;
}

sub trylastchoice
{
    print "trylastchoice";
    return 1;
}
<code>

Running this produces:
<code>
# perl or.pl
tryfirstchoice
trysecondchoice
#
[download]