use strict;
use warnings;

my @Code = qw{ 404 408 }; 
my @Portal_Name = qw{ http://software.com http://yahoo.com }; 
my @Text = ( q{Not found}, q{Request Timeout} );

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

##</code><code>##

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