Select Code to Download

#!/usr/bin/perl
use strict;
...
    my @quotes = @{$arrptr->[$i++]};
    print "$symbol\t@quotes\n";
}

use strict;
use warnings;
...
    }
    return ( $performance_index, $prototypes, $current_partition_matri
+x );
}