I like your version a bit better than his, but I've still got to give a (--) for your initial complaint
...and for posting code without use strict; use warnings.
Read a nice little rant about the "usestrictusewarnings" dogma at point #9 (line 702) of this page
. And most of your corrections are cosmetic anyway.
Anyway, a REALLY old school player would play the song by running various loops of instructions that cause the machine to hum at different frequencies. (My dad claims to have done this with punch cards in the 70s.) But I don't think that's even possible on modern hardware or in Perl. (/me waits eagerly to be proven wrong.)