print "date\tversion\n"; for (0..$#dateArray) { my $date = $dateArray[$_]; $date =~ s!^(\d\d)(\d\d)(\d\d)$!$1/$2/$3!; print "${date}\t$versionArray[$_]\n"; }