#!/usr/bin/perl -w
use strict;

sub func (&@) {
  my $func = shift;
  foreach (@_) {
    $func->($_);
  }
}

sub func (@) {
  foreach (@_) {
    print $_;
  }
}

my @list = ('bob', 'sally', 'joe');
func { print "!!!$_\n"; } @list;
func @list;