Select Code to Download

%hoh = (
  user1 => {
...
    type    => ['type1','type2','type3'],
  },
);

for my $user (sort keys %hoh) {
  my @websites = @{ $hoh{$user}{'Website'} };
...
  }
  print "\n";
}

%hoh = (  # actually now a hash of arrays of hashes (HoAoH)
  user1 => [
...
    { Website => 'website3', type => 'type3',},
  ],
);

for my $user (sort keys %hoh) {
  print "$user :\n";
...
  }
  print "\n";
}