#!/usr/bin/perl -w
use strict;


my @sarFormat;
my $colCou = 0;
open SARDATA, 'C:\temp\rawSarData' or die "HaHa $!\n";


# Check lines for syntax dd:dd:dd dd dd dd dd
while ( defined( my $line = <SARDATA>)) {
    $line =~ m/(\d+:\d+:\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/;
    if ( defined ( $1 )) {
        $sarFormat[$colCou][0] = $1;
        $sarFormat[$colCou][1] = $2;
        $sarFormat[$colCou][2] = $3;
        $sarFormat[$colCou][3] = $4;
        $sarFormat[$colCou][4] = $5;
        $colCou++;
    }
}
    

for my $newRow (0..4) {
    for my $newCol ( 0..$#sarFormat ) {
        print "$sarFormat[$newCol][$newRow] ";
    }
    print "\n";
}