sub Harmonics ($$) {
#23456789_123456789_123456789_123456789_123456789_123456789_123456789_12
for$a(1..pop){$_{sprintf'%.3f',$_[0]*$a/$_}++for 1..$a}sort{$a-$b}keys%_
}