@foo = qw[
    137  # NETBIOS Name Service
    139  # NETBIOS Session Service
    445  # Win2k+ Server Message Block
    1434 # SQL Slammer / Sapphire worm
];

print join ':', @foo;
print "\n";