Hi Gaurav,

Use "pairwise" method of List::MoreUtils module.

use List::MoreUtils qw(pairwise);

@versionArray = ("1.000.10.01","1.000.10.01");
@dateArray= ("110905","111505"); 

@result=pairwise{replace($a, $b)} @dateArray, @versionArray;

print "\ndate\t\tversion\n";
$"="\n";
print "\n@result";

sub replace
{
    my ($a,$b)=@_;
    $a=~s#([0-9]{2})([0-9]{2})([0-9]{2})#$1/$2/$3#g;
    
    return "$a\t$b";
}
[download]

Output:

date            version

11/09/05        1.000.10.01
11/15/05        1.000.10.01
[download]

Thanks,
Gopal.R