Select Code to Download

#!/usr/bin/perl -w
use strict;
...
                 ]
        };

print "$_ => (@{$items{$_}})\n" for sort keys %items ;
__END__
...
3 => (14 15)
4 => (16 17 18 19 20)
5 => (21 22 23 24)