my $h_csv_ref={};
my @a_h_csv_ref=({},{},'TEST',$h_csv_ref);

#my @a_csv_tmp = grep  !/$h_csv_ref/ , @a_h_csv_ref;
#push(  @a_h_csv_ref, @a_csv_tmp );
#while( @a_csv_tmp   ) { shift( @a_csv_tmp   ); }
#while( @a_h_csv_ref ) { shift( @a_h_csv_ref ); }

# besser

for(reverse 0..$#@a_csv_tmp) {
  splice(@a_h_csv_ref,$_,1) if $h_csv_ref eq $a_h_csv_ref[$_];
}