#!/usr/bin/perl

#use strict;
use warnings;

sub test {
  print "pass\n";
}

my @subs = ('test');

$subs[0]();