Select Code to Download

#!/usr/bin/perl -l

...

die "c was not found in \@array" if ! defined $index;
print $array[$index-1];