use Data::Dumper; print Dumper $result;