#!/usr/bin/perl

use strict;
use warnings;

package Foo;

sub new {
  bless {}, shift;
}

sub test {
  print "pass\n";
}

package main;

my @subs = ('test');

my $foo = Foo->new;

my $method = $subs[0];
$foo->$method;