Select Code to Download

print "\@D is not the same as \@E\n" unless check_same( \@D, \@E );
print "\@D is the same as \@F\n" if check_same( \@D, \@F );

sub check_same {
    my ( $ref1, $ref2 ) = @_;
...
    }
    return 1;
}