Select Code to Download

NAME,06/01/2011,09:30:00,16.76,756,Q,00
NAME,06/01/2011,09:30:00,16.76,300,Q,00
...
NAME,06/01/2011,09:30:01,16.76,200,Z,00
NAME,06/01/2011,09:30:02,16.77,200,X,00
NAME,06/01/2011,09:30:02,16.77,200,X,00

    my $csv = Text::CSV_XS->new();
    open (FILE, "<", "$tickdir/$file") or die "Can't open CSV File:$! 
+\n";
...
        print Dumper(\%HOH);
    }
    close FILE;

$VAR1 = {
          '1306935005' => {
...
                                       ]
                          }
        };