open INPUT,"$old";
my (@arrayold,@arraynew);
myfunc(*INPUT,\@arrayold,\@arraynew)


sub myfunc {
my ($file,@array1,@array2) = @_ ;
my $j = 0;
my $k = 0;
while (my $line = <$file)
{ my($word1,$word2) = split(",",$line);
  $array[$j++] = $word1;
  $array[$k++] = $word2;
}
}

##</code><code>##

1,//http:abcd
2,//http:avcd