Select Code to Download

#!/usr/bin/perl -w
use strict;
...
Change array to >a b c<
array ref: >a b c< 
array index ref: >a<