use Data::Dumper;
$out = Dumper($q);