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