#!/usr/bin/perl -w

use strict;

@_ = qw( hello world );

### prints everything in @ARGV but nothing in @_
while(my $d = shift) {
    print "$d\n";
}

### prints nothing because @ARGV is empty
### doesn't even print @_ contents
while(my $n = shift) {
    print "$n\n";
}