2016-03-14T12:18:24 Muffi

Ich glaub jetzt hab ich das erst kapiert. Dein Problem ist nicht der Switch, sondern wie du an das "1" kommst, wenn es nicht per <STDIN> ankommt?

Da gibt's (ja, in Perl gibt's wenn man will IMMER NOCH mehr Möglichkeiten)
2 Möglichkeiten.

Wenns wirklich einfach ist, z.B. "./mein_irgendwas_perl.pl 1"
dann stehn die ganzen übergebenen Argumente in einem Array namens @ARGV.

Wenns komplexer als dieser Fall ist gibt's z.B. das Modul Getopt::Long. Das würd ich dann benutzen, bevor man selber was wirres zusammenbastelt.