my $pic = splice @all_pics, rand @all_pics, 1;