#!/usr/bin/perl -w

$datafile='/home/users/cajun/perl/wwwstats/wwwstats.data';

open(INFILE,"$datafile") || die "Cannot open $datafile :$!";

while(<INFILE>){
    @tmp=split(0..7);
    push @AoA, [@tmp];
    print $AoA[5][3];
}

close INFILE;