#!/usr/bin/env perl

use strict;
use warnings;

my @choices = (
    "Choice 1",
    "Choice 2",
    "Choice 3",
    "Choice 4"
);

my $random_choice = $choices[rand @choices];

print "The text is: $random_choice\n";

exit;