Select Code to Download

    my $diff= easy( \@a, \@b );
    foreach ( @$diff ) {
        my( $same, $aMin, $aMax, $bMin, $bMax )= @$_;
        ...  # rest of code snipped because unaltered
    }

    my $diff= easy( \@a, \@b );
    while (my $row = shift @$diff ) {
        my( $same, $aMin, $aMax, $bMin, $bMax )= @$row;
        ...  # rest of code snipped because unaltered
    }