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