use strict;
use Math::Trig;
my @lengths = (3,4,5);
my @slengths = sort {$a <=> $b} @lengths;
my $a1 = atan($slengths[1]/$slengths[0]) * 180/3.141592653589;
my $a2 = 90 - $a1;
print "Angles are $a1, $a2\n";