Select Code to Download

#!/usr/bin/perl

...
    close $write_fh;
}

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