my $random_file = $names[rand(@names-1)];

##</code><code>##

my $random_file = $names[ rand @names ];