$id = $1  if $key =~ /^(copy_\d_frag_\d_id)$/;

##</code><code>##

$status{$client}{'tapes'}{$id} = 1;