How about changing to a object system. This might releive some of your redundancy?

package myObj;
use strict;

sub new {
        return bless {}, $_[0];
}

sub one {
        print "One\n";
}

sub two {
        print "Two\n";
}

sub three {
        print "Three\n";
}

1;
[download]

and test code:

#!/usr/bin/perl -w
use strict;
use lib ".";
use myObj;

my $s = myObj->new();
my @cmd = qw( one two three );
foreach (@cmd) { $s->$_(); }
[download]

HTH