@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";

##</code><code>##

137:#:NETBIOS:Name:Service:139:#:NETBIOS:Session:Service:445:#:Win2k+:Server:Message:Block:1434:#:SQL:Slammer:/:Sapphire:worm