WRONG NEW CODE
sub remove {
    my ($cpio, @filenames) = @_;
    $cpio->{list} or die "can't remove from nothing\n";

    foreach $item (@{$cpio->{list}}) {
        foreach $file (@filesnames) {
            if ($item->{name} eq $file){
                delete @{$cpio2->{list}->{$item}};
            }  
        }
    }
    return;
}