while (@x = getpwent()) {
    $info{$x[0]} = \@x;
    print "$info{$x[0]}\n";
  }