#!/usr/bin/perl
#version 1.2
#Joel P. Martin


@people=(user1, user2, user3);

open(FINGER, "finger|");

while (<FINGER>) {
        foreach $person (@people) {
                if (/^$person /) { print; }
                }
        }