Select Code to Download

use strict;
use warnings;
#use Data::Dumper; $Data::Dumper::Useqq = 1; $| = 1;
#print Dumper( \%some_var );

    my @tmp;
    if ($match){
...
        print "@tmp\n";
    }
    push @arraynew,[@tmp];

    if ($match){
        my @tmp = @line[@sorted_cols];
        print "@tmp\n";
        push @arraynew, [@tmp];
    }

    if ($match){
        my @tmp = @line[@sorted_cols];
        print "@tmp\n";
        push @arraynew,[@tmp];
    }

    if ($match){
        push @arraynew, $_;
        print "$_\n";
    }

    my @final_result = map { [ (split "\t")[@sorted_cols]  ] }
                       @{ $arrayref };

    my @arraynew;
    foreach my $key_pos ( keys %conwithposition ) {

    foreach my $key_pos ( keys %conwithposition ) {
        my @arraynew;

$ perl -e 'use Data::Dumper; my $x = "foo"; my $x_ref = \$x; print Dum
+per ref($x), ref($x_ref);'
$VAR1 = '';
$VAR2 = 'SCALAR';

    if (ref $inputval_ref eq 'SCALAR') {
        return 1 if ($valuesrc eq $$inputval_ref);

    if (ref $inputval_ref eq '') {
       return 1 if ($valuesrc eq $inputval_ref);

my ($op, $arg1, $arg2) = (@{$conwithposition{$key_pos}}[1],@{$conwithp
+osition{$key_pos}}[2],$line[@{$conwithposition{$key_pos}}[0]]);

my ( $arg2_pos, $op, $arg1 ) = @{ $conwithposition{$key_pos} };
my $arg2 = $line[ $arg2_pos ];

#!/usr/bin/perl
use strict;
...
      }
      return 0;
}

#!/usr/bin/perl
use strict;
...

    return $op_match;
}

print Dumper \@sorted_cols, \%conwithposition, \@array;