#! /usr/bin/perl -w
use strict;

@_ = qw( Lucy, I'm home! );

sub main {
while(my $d = shift) {
    print "$d\n";
}
}

&main;

##</code><code>##

#!/usr/bin/perl -w
use strict;

@_ = qw( hello world )
@other = qw( hasta la vista baby )

sub main {
while(my $d = shift) {
    print "$d\n"; # Are we coming or going?
    }
}

&main;