Select Code to Download

my @array  = (42);
my $count  = @array;
my ($elem) = @array;
print "$count element, which is ($elem)\n";