#!/usr/local/bin/perl -l
use strict;
use warnings;

my $user = $ARGV[0];
my @gr_list;
my @pw_info;

while (@pw_info = getpwent) {
  if ($pw_info[0] eq $user) {
    my @gr_info;
    while (@gr_info = getgrent) {
      push(@gr_list, $gr_info[2]) if ($gr_info[3] =~ /\b$user\b/);
    }
    push(@gr_list, $pw_info[3]);
  }
}

print foreach @gr_list;