my $a = [ 1, [ 2, [ 3, [ 4, 5 ] ] ] ];
my $d = [ 1,  2,  3,  4,  5 ];


print sameFringe( $a, $d )?"Same\n":"Different\n";

__END__
Use of uninitialized value in string ne ...
Different