@list_f = split /\s+/, $list[0];