my @array = ();
if (not $array[0] eq q{}){
#mache was
}else{
#mache was anderes
}