Напиши типа

open(F, '<agents.txt') || die $!;
chomp(my @agents = <F>);
close F;

$ua->agent($agents[rand @agents]);