use Data::Dump qw/ dd /;
dd( $prn );