while ( ( my $iter, $elem ) = each @data ){
        if ( $elem eq $string ){
            $data[ $iter ] = $header[ $iter ];
        }
    }