@{$listref} = grep {exists} @{$listref};

maybe you meant:
@{$listref} = map { exists $listref->[$_] ? $listref->[$_] : () } 0 .. $#{$listref} ;
?

update: typo