I am having this error in the line self->{_seedpath} below..can somebody help!!!!

my @seeds = glob("*r0.32.obj");
@seeds = sort @seeds;
my $seed = pop @seeds;
$self->{_seedPath} = "$self->{_work_dir}/$seed";