Perl pass a function as a parameter

#!/usr/bin/perl
# Caveats: the caller needs to pass a reference to a function

my @abc = (1);
my $final = driver( \&test , @abc );

sub test()
{  print "$_[0] \n";
}

sub driver()
{
  my ( $function , $arg1 ) = @_;
  my $result = $function ->( $arg1 );
}



my @array = (1,2,3);
my $sum = reduce( \&add , @array );
print "$sum \n";

sub add
{
  $_[0] + $_[1]
}

sub reduce
{
  my $sref = shift;
  return @_ if @_ < 2;
  my $init = shift;
  for (@_)
  {
    $init = $sref->($init, $_);
  }
  return $init;
}