use strict;
use warnings;

my @Records;
push( @Records, [ "AAA", 20130610, 730, 1015, "\n" ] );
push( @Records, [ "BBB", 20130610, 1015, 1200, "\n" ] );
push( @Records, [ "CCC", 20130610, 1230, 1400, "\n" ] );
push( @Records, [ "DDD", 20130610, 1415, 1530, "\n" ] );

print $Records[1][2], "\n";