#!/usr/bin/perl -w

use strict;

my @array = ('uriel', 'daniel', 'joel', 'samuel');


print "Array before random: @array\n\n";


my @n_array = rand(@array);

print "Array after random: @n_array";