Das zeigt mal wieder wie nützlich [tt]use strict[/tt] ist. Im zweiten Skript machst Du einen Dump von %switches und der Hash existiert nicht. Wenn dann müsstest Du print Dumper($switches) machen...

Das erste Skript habe ich mir noch nicht angeschaut...