use strict; 
use warnings; 
my @friends = qw ( Aaron Donald Roger etc ); 
my @family = qw)Mom Dad Brother Sister etc); 
foreach ( @friends ) { print $_, " is a friend\n" } 
foreach ( @family ) { print $_, " is family\n" }