Ich würde da mit "shuffle" arbeiten (aus einem Modul List::MoreUtils oder so). Dann kannst Du Dir das ganze if-else-Konstrukt sparen...

und: goto ist böse ;-)