Select Code to Download

#!/usr/bin/perl -w
use strict;
...

print "Number of elements in array: $x\n";
print "Content of array: @t\n";