#!/usr/bin/perl

our $boss; our $friend;
our @memories = qw(laughter, jokes, lunch_time_gossip);
our @pain = qw(too_young, too_soon, too_sudden);

foreach $friend qw(all of us here) {
    our $sorrow++;
}

END {
our $thoughts << "Tin Man";
    Rest in peace. 
Tin Man
1970 - 2005
}