|
#!/usr/bin/perl
use warnings;
use strict;
my $hand;
my @pileofpaper = ("A", "B", "C", "D");
print "@pileofpaper\n";
$hand = pop @pileofpaper;
print "$hand\n";
$hand = pop @pileofpaper;
print "$hand.\n";
print "@pileofpaper\n";
pop @pileofpaper;
print "$hand\n";
push @pileofpaper, $hand;
push @pileofpaper, "E", "F";
print "@pileofpaper\n";
|