my %data;
$data{A} = [qw(a data goes here)];
$data{B} = [qw(b data here too)];
$data{C} = [qw(and here is c data)];