if(grep defined, @line{@{$new{a}}}) #need this condition

##</code><code>##

my $seen = 0;
for my $val (  @{$new{a}} ) {
    $seen++ if exists $line{$val};
}
if($seen) {#need this condition
    do something
} else {
    do something
}