#!/usr/bin/perl

#use strict;
use warnings;

sub test {
  print "pass\n";
}

my @subs = ('test');

$subs[0]();

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

sub test {
  print "pass\n";
}

my @subs = (\&test);

$subs[0]->();