Help for this page

Select Code to Download

Select or download this

# Assume @all_pics to be your array
my %seen;
@all_pics = grep !$seen{$_}++, @all_pics;

Select or download this
my $pic = splice @all_pics, rand @all_pics, 1;