#!/usr/bin/perl -w
use strict;
my %data;
open (INPUT,"file") or die "Unable to open file : $!";
while (<INPUT>) {
    my @temparray = split /\s+/;
    next unless (@temparray == 14);
    $data{$temparray[0]} = \@temparray;
}
foreach (keys %data) {
    print "$_:\n";
    $data{$_}->[3] ? print "\tSuccess\n" : print "\tFailure\n";
    print "\tStart:  $data{$_}->[5]\n";
    print "\tFinish:  $data{$_}->[7]\n";
    print "\tH/M/S:  $data{$_}->[8]\n";
    print "\tMBs:  $data{$_}->[9]\n";
}