my $name     = $wallpapers[rand($#wallpapers)];

##</code><code>##

my $name     = $wallpapers[rand(@wallpapers)];