while($Element=shift(@array)) {
if($Element =~ m/SomeonesName/) { print "$Element\n"; }
}