my %deps;
while(<STDIN>){
  my @cols = split;
  my $task = shift @cols;

  $deps{$task}->{$_} = undef for @cols;
  # or another way:
  %{$deps{$task}} = map { $_ => undef } @cols;
}