#!/usr/bin/perl

use strict;
use warnings;

sub test {
  print "pass\n";
}

my @subs = (\&test);

$subs[0]->();