foreach my $line(@array) {
  foreach (@array1) {
    if ($username eq $user){
      print "$line\n";
    }
  }
}