c:\Temp\perlmonks>perl 919135.pl
Inserting "BOYS 120 2 5 available"
Inserting "GIRLS 300 3 10 available"

##</code><code>##

@record=();