foreach $i(@update){
    $i =~ /^(\d{4})/;    # match and grab into $1 the first four digits
    if($seen{$1} == 1){  # test if the dir has been seen
        copy($i,$to_dir);
    }
}