#!/usr/bin/perl

use strict;
use warnings;

my $group = 'users';
my @folder = qw ( worksheets correspondence );

&chgrp($group, \@folder);

sub chgrp {
  my ($group, $folder) = @_;
  eval { system( "chgrp $group @$folder" ) };
  warn $@ if $@;
}