Select Code to Download

#!/usr/local/bin/perl -w
#
...
butchers_block 45 beech                                    _household
deep_fat_fryer 27 white,non_stick                          _white_good
+s
blouse         55 silk,bronze_green                        _womenswear

boxers         84 cotton,tartan                            _menswear
singlet        83 cotton,grey                              _menswear
...
blouse         88 cotton,pink                              _womenswear
deep_fat_fryer 27 white,non_stick                          _white_good
+s
blouse         55 silk,bronze_green                        _womenswear

@sort = map{...}
        sort{...}
        map{...}
        map{...}
        @list;

@sort = map{...}
        sort{...}
        grep{...}
        map{...}
        @list;

@sort = map{...}
        sort{...}
...
        grep{...}
        map{...}
        @list;