Select Code to Download

sub read {
    my ($cpio, $file) = @_;
...
        my ($e) = @_;
    push @{$cpio->{list}}, $e;
    });

sub remove {
    my ($cpio, @filenames) = @_;
...

    @{$cpio->{list}} = grep { !$filenames{$_} } @{$cpio->{list}};
}