4 lines
83 B
Perl
4 lines
83 B
Perl
|
@array = ("one", "two", "three");
|
||
|
$variable1 = shift(@array);
|
||
|
print $variable1;
|