Select Code to Download

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

...
my @results = eat_array(\@testcase);

print @results . " elements.\n@results\n";