Shioo.

my %h = map { chomp; /:\s+/ ? ( $` => [split ';', $'] ) : () } <DATA>;
[download]

Or, perhaps a little more comprehensible (but less safe):

my %h = 
  map { $_->[0] => [split ';', $_->[1]] }
  map { chomp; [split /:\s+/] }
  <DATA>;
[download]