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