Select Code to Download

#!/bin/bash
file=$1
paste <(join -1 1 -2 2 -o 1.1 2.1 "$file" \
             <(cut -f1,2 "$file" | sort -k2nr | nl | sort -k2) ) \
      <(       cut -f1,3 "$file" | sort -k2nr | nl | sort -k2 | cut -f
+1)

#!/usr/bin/perl
use warnings;
...
for my $l (0 .. $#input) {
    say join "\t", @{ $output[$l] };
}

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,