$filename = (undef, undef, $images[$n]->{imagename}) = (File::Spec->splitpath( $_, 0 ));

##</code><code>##

(undef, undef, $filename = $images[$n]->{imagename}) = (File::Spec->splitpath( $_, 0 ));