Select Code to Download

for my $e (@$bbData) {
    my $d = $e->[0];
    print "date:  $d->[0]\n";  # presuming it's a date...
    print "price: $d->[1]\n";
}