Select Code to Download

use strict;
my @abc= ('a','b','c','d');
my $x= @abc;
my $y = scalar(@abc);
print $x."#".$y;