#!/usr/bin/perl

@old = ( 2, 5, 13, undef, 6, 8, undef, 3);

@new = ();

for ($i=0;$i<=$#old;$i++)
{
    $new[$n++] = $old[$i] if defined $old[$i];    }
    
print "\n@old";
print "\n\n@new\n\n";