Select Code to Download

use strict;
use warnings;
...
print
   map { qq{$Code[$_] $Portal_Name[$_] $Text[$_]\n} }
   0 .. $#Portal_Name;

404 http://software.com Not found
408 http://yahoo.com Request Timeout