#!/usr/local/bin/perl @FamilyName = ("Tom", "Michael", "A"); print $FamilyName[0]; print $FamilyName[1]; print $FamilyName[2]; print "\n\n"; print "$FamilyName[0] $FamilyName[1] $FamilyName[2]";