my %index = (
    A => [1,2],
    B => [4,6],
);

foreach my $entry ( sort keys %index ) {
  print $entry . ":";
  foreach my $value ( @{$index{$entry}} ) {
    print " " . $value;
  }
  print "\n";
}