8 lines
189 B
Perl
8 lines
189 B
Perl
|
@name=("A", "B", "C", "D");
|
||
|
|
@list=(2..10);
|
||
|
|
@grades=(100, 90, 65, 96);
|
||
|
|
@items=($a, $b, $c);
|
||
|
|
@empty=();
|
||
|
|
$size=@items;
|
||
|
|
@mammals = qw/dogs cats cows/;
|
||
|
|
@fruit = qw(apples pears peaches);
|