a) use <code></code> tags. 2) See How (Not) To Ask A Question. III) Rather than keeping three parallel data structures like that it might make more sense to store the data for the same entry in one place (e.g. an array of hashrefs, each hashref containing the code, name, and text; see perldsc, perllol, perlreftut).

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

Simpler:

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

#!/usr/bin/perl
use warnings;
use strict;

my @Code = (404,408); 
my @Portal_Name = ("http://software.com","http://yahoo.com");
my @Text = ("Not found","Request Timeout");
for my $i ( 0 .. $#Portal_Name ) {
    $Portal_Name[$i] = sprintf "%s %s %s\n", $Code[$i], $Portal_Name[$
+i], $Text[$i];
}

for( @Portal_Name ) {
    print;
}
[download]

C:\Code>perl array_cat.pl
404 http://software.com Not found
408 http://yahoo.com Request Timeout
[download]

I'm sure there is a pretty solution with map but ...

I'm not sure about pretty but it is fairly straightforward.

In your code, as well as the slightly dubious use of sprintf, I wonder why you trample over @Portal_Name and use two for loops when you could have done a print (or even a printf if you insist) in the first loop.

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;
[download]

The output.

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

I hope this is of interest.

Cheers,

JohnGG

Thanks all for your help..Its realy interesting to know different ways of getting info. Regards, Gowri

Not seeing the advantage of sprintf here; perl would print it correctly anyway. Can you expand on why it wins (or e.g. why print fails)?