for(my $i=0; $i<@Code; $i++) { print "$Code[$i] $Portal_Name[$i] $Text[$i]\n"; }