use Math::Pari qw[ :int factorint sqrtint divisors PARI ];
$f = factorint 1000000;
print Dumper $f;

$VAR1 = bless( [
                 bless( [
                          bless( do{\(my $o = 33884400)}, 'Math::Pari' ),
                          bless( do{\(my $o = 33884376)}, 'Math::Pari' )
                        ], 'Math::Pari' ),
                 bless( [
                          bless( do{\(my $o = 33884388)}, 'Math::Pari' ),
                          bless( do{\(my $o = 33884364)}, 'Math::Pari' )
                        ], 'Math::Pari' )
               ], 'Math::Pari' );

Attempt to free unreferenced scalar: SV 0x19f41f4 at c:\Perl\bin\p1.pl line 14, <STDIN> line 3.
Attempt to free unreferenced scalar: SV 0x19f42cc at c:\Perl\bin\p1.pl line 14, <STDIN> line 3.

##</code><code>##

$Data::Dumper::deepcopy=1;
print Dumper $f;

$VAR1 = bless( [
                 bless( [
                          bless( do{\(my $o = 33884400)}, 'Math::Pari' ),
                          bless( do{\(my $o = 33884376)}, 'Math::Pari' )
                        ], 'Math::Pari' ),
                 bless( [
                          bless( do{\(my $o = 33884388)}, 'Math::Pari' ),
                          bless( do{\(my $o = 33884364)}, 'Math::Pari' )
                        ], 'Math::Pari' )
               ], 'Math::Pari' );

Attempt to free unreferenced scalar: SV 0x19f43bc at c:\Perl\bin\p1.pl line 14, <STDIN> line 5.

##</code><code>##

$Data::Dumper::Indent=0;
print Dumper $f;

$VAR1 = bless( [bless( [bless( do{\(my $o = 33884400)}, 'Math::Pari' ),bless( do{\(my $o = 33884376)}, 'Math::Pari' )], 'Math::Pari' ),bless( [bless( do{\(my $o = 33884388)}, 'Math::Pari' ),bless( do{\(my $o = 33884364)}, 'Math::Pari' )], 'Math::Pari' )], 'Math::Pari' );
Attempt to free unreferenced scalar: SV 0x19f37c8 at c:\Perl\bin\p1.pl line 14, <STDIN> line 7.

##</code><code>##

print "[@$_]" for @$f;

[2 5]
[6 6]

##</code><code>##

print "[@{[ join', ', map{ \"[@$_]\" } @$f ]}]";

[[2 5], [6 6]]