http://qs321.pair.com?node_id=731808

Jaganath has asked for the wisdom of the Perl Monks concerning the following question:

Hi folks - I'm a perl FNG and I have a question about joining and outputing arrays. I have two arrays (lines read in from txt files and split on \n). What I need to do is join them, but in itterations.
i.e., the first array contains urls, say
http://www.something.com/blah.aspx?code=
and
http://www.somethingelse.com/stuff.aspx?thing=

The second array contains product codes, say
375035304
564564774
346464646

I need to end up with an array containing an entry for each url/code combination -i.e

http://www.something.com/blah.aspx?code=375035304
http://www.something.com/blah.aspx?code=564564774
http://www.something.com/blah.aspx?code=346464646
http://www.somethingelse.com/stuff.aspx?thing=375035304
http://www.somethingelse.com/stuff.aspx?thing=564564774
http://www.somethingelse.com/stuff.aspx?thing=346464646

So far nothing I've tried works (I'm only about 12 hours into my perl voyage so please forgive my ignorance :0)

Any help would be very welcome - here's my code so far:
#!/usr/bin/perl

#open and assign urls file
open (URLS, "urls.txt") || die("Couldn't open file!");
@raw_urls=<URLS>;
close(URLS);

#open and assign isbn/prod code file
open (CODES, "data.txt") || die("Couldn't open file!");
@raw_codes=<CODES>;
close(CODES);

# loop through urls, split out and dump in array
foreach $urls (@raw_urls)

{
(@url)=split(\n, $urls);
print @url; \n #test output
}
# loop through codes, split out and dump in array
foreach $codes (@raw_codes)
{
(@code)=split(\n, $codes);
print @code; \n #test output

}