package MyPackage;
use warnings;
use strict;

use FOO::Soldier;

my $obj1 = FOO::Soldier->new('Benjamin', 'Private', 11111);
my $obj2 = FOO::Soldier->new('Sanders', 'Colonel', 22222);
my $obj3 = FOO::Soldier->new('Matt', 'Sergeant', 33333);
    
for my $obj ($obj1, $obj2, $obj3) {
    print  $obj->get_serial, ") ", 
           $obj->get_name, " is a ", 
           $obj->get_rank, "\n";
}