@life = ("pain", "death", "love", "hate");
@you = @life;
sub I{ print "I @_\n"; sleep 1;}

I " feel $_" for @you;
I " love $_" for @life;
I join ',', $you[2] for $life[2];
I die;