fixed

foo.pl

use strict;
use warnings;
use diagnostics;
use feature qw(say);

my @arr = grep { $_ % 2 == 0 } 1..10;
my $name = 'slim shady';

bar(\@arr,$name);

sub bar
{
  my($first,$second) = @_;
  say $name;
  foreach my $item (@$first)
  {
    say $item;
  }
}