sub wait_for_files{ my %not_changed = %{ +shift }; while( sleep 1 and keys %not changed ) { -e and delete $not_changed{ $_ } for keys %not_changed; } }