Select Code to Download

@in = grep { $_->{$field} eq $value } @in;

@out = grep { $_->{$field} eq $value } @in;
@in = @out;