open(DATA, "/scripts/clients");
while (<DATA>) {
my @dir = split /ms/;
foreach (@dir) {
$client = shift(@new_data);
backup($client);