$: cat source.csv
123.com
456.com
789.com

$: cat destination.csv
bc.com,3080
def.com,4560

$: ./new2.pl source.csv destination.csv
$VAR1 = [
          "123.com",
          "456.com",
          "789.com"
        ];
$VAR2 = [
          "bc.com,3080",
          "def.com,4560"
        ];
Source [123.com]
Destination [bc.com:3080] 
Destination [def.com:4560] 
Source [456.com]
Destination [bc.com:3080] 
Destination [def.com:4560] 
Source [789.com]
Destination [bc.com:3080] 
Destination [def.com:4560]