programming-examples/perl/Array/Shift value from array.pl

@array = ("one", "two", "three");
$variable1 = shift(@array);
print $variable1;