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

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

dd \%pic;