Simpler:

for my $i ( 0..$#Code ) {
  print "$Code[$i] $Portal_Name[$i] $Text[$i]\n";
}
[download]