Array Perl

  1. Home
  2. Perl
  3. Array
  4. Using Arrays as Stacks
#!/usr/local/bin/perl -w
push (@myList, "Hello");
push (@myList, "World!");
push (@myList, "How");
push (@myList, "Are");
push (@myList, "You?");
while ( $index = pop(@myList) )
{
   print "Popping off stack: $index\n";
}