#!/usr/bin/perl

@list = qw/ love seekteth not itself to please /;
$result = &identifier(@list);

sub identifier {
	@array = @_;
		print "@array\n";
		foreach (0..$#array) {
			print "$array[$_]\n"; 
					}
		}