use strict;
use warnings;
use Data::Dump;

my %pic = (
    R0 => [ 5, 4 ],
    R2 => [ 3, 2 ] );

dd \%pic;

##</code><code>##

16:03 >perl 1651_SoPW.pl
{ R0 => [5, 4], R2 => [3, 2] }

16:03 >