my @a = qw(IBM B 226110 20020702 545 12.5109);
@a = join(',',@a);
print "@a\n";