#!/usr/bin/perl

use strict;
use warnings;

use Smart::Comments;	# Enable special comments for debugging

my $funky_obj = {red=>[qw(A B C)],'blue',['1','2','3']};

						### $funky_obj
__END__

=for output

### $funky_obj: {
###               blue => [
###                         '1',
###                         '2',
###                         '3'
###                       ],
###               red => [
###                        'A',
###                        'B',
###                        'C'
###                      ]
###             }

=cut