Perl - dopasowanie wzorca

[Luzack]

Mam taki problem - dopasowanie prostego wzorca ale do tablicy
mam coś takiego

@Typ="Command: upload cfg_toTFTP $IP dlink
 Connecting to server................... Done. 
 Upload configuration................... Done. ";

if (@Type = /Done/) {
print "OK  \n";
}else{
print "NO \n ";
} 

chciał bym osiągnąć ze jeśli w całej tablicy wystąpi słowo Done to ma wypisać OK

[GSG-9]

@Typ="Command: upload cfg_toTFTP $IP dlink
 Connecting to server................... Done. 
 Upload configuration................... Done. ";

if ( @lol = grep( /Done/,@Typ ) ) {
   print "OK\n";
}
else {print "NO\n";} 

[Luzack]

Dzięki , działa