my $file = '/scripts/clients';

open(DATA, $file) || die "Can't open $file: $!\n";
$raw_data=<DATA>;
while (<DATA>) {

foreach ($raw_data) {
@new_data= split(/ms/, @raw_data);
$client = shift(@new_data);