if( scalar @{$ps_f} == 0 ) {
    print "ref. array hat keine Elemente\n";
}