#! /usr/bin/perl
 
my ($username,$userid) = @ARGV;
undef @ARGV;
my @phonebook = (<>);
 
@phonebook = grep /\b$username\b/ , @phonebook;
@phonebook = grep /\b$userid\b/   , @phonebook;
 
print foreach(@phonebook);