$ cat shifter.pl 
#!/usr/bin/env perl 
use strict;
use warnings;

do {
	print "ARGV is @ARGV\n";
	print "Shifting " . shift . " off ...\n";
} until $#ARGV < 0;

$ ./shifter.pl x y z
ARGV is x y z
Shifting x off ...
ARGV is y z
Shifting y off ...
ARGV is z
Shifting z off ...
$