>perl -le
"use strict;
 use warnings;
 use Data::Dump;
 ;;
 my @Records = (
   [ 'AAA', 20130610,     730,     1015, qq{\n} ],
   [ 'BBB', 20130610, 'Hello',     1200, qq{\n} ],
   [ 'CCC', 20130610,    1230, 'There!', qq{\n} ],
   [ 'DDD', 20130610,    1415,     1530, qq{\n} ],
   );
 ;;
 print $Records[1][2], qq{ $Records[2][3]};
 ;;
 dd \@Records;
"
Hello There!
[
  ["AAA", 20130610, 730, 1015, "\n"],
  ["BBB", 20130610, "Hello", 1200, "\n"],
  ["CCC", 20130610, 1230, "There!", "\n"],
  ["DDD", 20130610, 1415, 1530, "\n"],
]