use LWP::Simple;
@h = ('http://addr1', 'http://addr2', 'http://addr3', 'http://addr4'); # can be much more
foreach (@h) { push @a, get($_); }