for (1..$a) {
        my $foo = rand @thumbs;
        my $randomelement = $thumbs[$foo];
        my $url = "picture_directory/$randomelement";

        print qq(<img src="$url">$url<br>);
        splice(@thumbs, $foo, 1);
}