#!/usr/bin/perl

#use warnings;
#use strict;

my $inFile = "CME.ESM3.MKD11.out";

open(FH1, '<', $inFile)
    or die("Can't open input file \"$inFile\": $!\n");

my %hash;

while ($line=<FH1>) {
        chomp;
        split /,/, $line;
        $hash{symbol} = $_[0];
        $hash{seqNum} = $_[1];
        $hash{type} = $_[2];
        $hash{timestamp} = $_[3];
        $hash{status} = $_[5];
        $hash{bid} = $_[6];
        $hash{bidVol} = $_[7];
        $hash{ask} = $_[8];
        $hash{askVol} = $_[9];


        for $key (keys %hash)
        {
                print "$key\=$hash{$key}\t";
        }
        print "\n";

}