sub print_passwd {
  my $hash_ref = shift;

  for my $k ( keys %$hash_ref ) {
    my $user = $hash_ref->{$k};
    my $data = $hash_ref->{$k}->[0];

    print "$user : $data\n";
  }
}