Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    sprintf("%.2f, %.2f", 
        $triplet[($m+1)%3]/$triplet[$m],
        $triplet[($m+2)%3]/$triplet[$m]);

my $m = (
    $xa>$xb?
        ($xa>$xc?0:2):
        ($xb>$xc?1:2)
);