use strict;

my @friends = ("noc", "john", "brightland", "christine", "marsh", "brandon");

# create hash from array
my %friends = @friends;

foreach my $entry (keys %friends) {
 print "Company $entry has buddy $friends{$entry}\n";
}

__OUTPUT__
Company brightland has buddy christine
Company marsh has buddy brandon
Company noc has buddy john