... open CREATE ...
foreach my $ser (@ser) {
    printf CREATE "%3s", $ser;
}